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ABSTRACT 


Optimally scheduling a team of developers on a large software project is an NP- 
complete problem. The scheduling algorithm employed by the Evolutionary Control 
System (ECS) portion of the Computer-Aided Prototyping System (CAPS) does near- 
optimal scheduling using an algorithm that runs in Order N? space and time. The 
problem addressed by this thesis is to improve the performance of the algorithm and 
make it more useful for scheduling software developers. The thesis accomplished three 
things: (1) Modified the algorithm to run in order N time and space, preserving its 
near-optimal behavior; (2) implemented a calendaring package that computes federal 
holidays for any year after 1970 and schedules tasks only on non-holiday workdays; 
and (3) incorporated a more realistic capability model to better match programming 


tasks with each developer’s abilities. 





DISCLAIMER 


The computer programs in the Appendices are supplied on an “as is” basis, 
with no warrantees of any kind. The author bears no responsibility for any conse- 


quences of using these programs. 
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iP BACKGROUND 


Much research into the formalization and automation of software development 
is underway. The need for such tools is obvious. It is fundamentally driven by Moore’s 
Law, which states that the power of computer systems will double every 18 months— 
a maxim which has held for the past twenty years, and is expected to continue for at 
least the next ten. As computer systems grow inexorably faster and more powerful, 
new software to take advantage of this increased power is needed. The new software, 
however, is larger, and more complicated, and now requires larger teams of developers 
to produce in a timely manner. Software tools to manage the complexity of developing 
these larger programs are needed. 

One such tool is the Evolutionary Control System (ECS) being developed at 
the Naval Postgraduate School (NPS). The basis of the ECS is Salah Badr’s Phd. 
Thesis, A Model and Algorithms for a Software Evolution Control System|Ref. 1], 
which itself was based on work by LuqilRef. 4] of NPS. 

Salah’s thesis delved into a broad array of issues related to managing large 
projects and their concomitant complexity. One aspect of his thesis, which is the sub- 
ject of this report, was the development and implementation of an on-line scheduling 
algorithm that did three specific tasks: 


1. Supported teamwork by concurrently assigning ready steps to available de- 
signers. 


2. Supported incremental replanning as additional information became available. 


3. Minimized wasted design effort due to reorganization of the schedule by eff- 
ciently scheduling workers to assigned sub-tasks. 


Over time, however, certain limitations have become evident. The implemen- 
tation of the scheduling algorithm was found to be O(N”) in space. This led to a 
rapid exhaustion of memory resources on relatively small problem sets. Also, the 


model of time used to schedule the developers was not realistic. It assumed that the 


developers were available always, and did not take into account weekends, holidays, 
or other commitments on a developer’s time. Also, the capabilities of the developers 
was split into just three broad categories: low, medium, and high. This too proved 
unrealistic, as certain developers bring their own strengths and weaknesses to the 
task at hand. It would be nice to take note, for instance, of a special ability such 
as database expertise, and assign a programmer with this capability to a task that 


require this knowledge. The changes made to Salah Badr’s codes do exactly this. 


ie THE SCHEDULER 


The problem of optimally scheduling tasks for both the preemptive and nonpre- 
emptive cases is NP-complete[Ref. 6]. Scheduling nonpreemptive tasks with arbitrary 
teady times is also NP-complete in both multiprocessor and uniprocessor systems|Ref. 
3]. For dynamic systems with more than one task, and mutual exclusion constraints 
between tasks, Mok and Dertouzos|Ref. 5] showed that an optimal scheduling algo- 
rithm does not exist. 

Shiah, et al.[Ref. 2] came up with an heuristic scheduling algorithm that ran in 
order kN time. Salah Badr extended the algorithm to consider arbitrary precedence 
constraints between pairs of tasks. His scheduler forms the basis of the current ECS 
scheduling algorithm. 

The scheduling algorithm, as implemented by Badr, was recursive. It con- 
sumed order N? memory for a set of N tasks. It attempted to improve performance 
by limiting backtracking, but was still at least order N? in time. It was based on 
an algorithm described in the paper by Stankovic, et al.[Ref. 3] The requirement for 
order N? space limited the size of the problem domain. This thesis describes the 
algorithm and the steps taken to make the algorithm run using only order N space. 
It is based on the “myopic” sikerthhaall Rete 2| and a radical restructuring of the data 


structures in the Ada code. 


A. THE SCHEDULING MODEL 

The task set in the ECS scheduling problem is a variable set of evolution 
steps S = {5),S2,...,5n}, where N varies with time. This set of tasks needs to be 
scheduled to a set of M designers D = {D,, Do,..., Dy}. The designers are of L 
different expertise levels. 

Tasks as used in the ECS are independent, nonperiodic and non-preemptive. 


They can be characterized by the following: 


1. Task arrival Time T,; 
2. Task deadline 7p; 
3. Task worst-case computation time T¢; 


Task expertise level T',; 


ae 


Task priority Tp 


Each task also has associated with it a precedence constraint given in the form 
of a directed acyclic graph G = {S, E} such that (5;,5;) € E implies that S; cannot 
start until S; has completed. 

The priority, Tp, is a small positive integer that is assigned to each task to 
reflect the criticality of its deadline. The priorites of different tasks should be com- 
patible with the precedence constraints between the steps, i.e. no lower priority step 


can precede a higher priority step: 


if (So, S51) € E => Tp(2) >= Tp(1) 
if (So, Si) EEA Tp(1) >= Tp(3) => Tp(2) — Tp(3) 


B. THE SCHEDULING ALGORITHM 

The goal of the scheduling algorithm is to determine if there exists a schedule 
for executing the tasks that satisfies the timing , precedence, and resource constraints, 
and to calculate such a schedule if it exists. A schedule that meets these constraints 
is termed feasible. It is not guaranteed to be optimal. 

Scheduling a set of tasks to find a full feasible schedule is actually a search 
problem. The search space is a tree. The scheduling algorithm starts at the root of 
the tree, and using a predetermined heuristic, selects a candidate task to schedule. If 
the remaining tasks can be added to the schedule, in the order given by the heuristic, 
without violating the constraints, then the partial schedule is termed strongly-feasible, 
and the task is added to the search tree as a vertex node, and the process is repeated, 


recursively, till a full, feasible schedule is found. If instead, after the candidate task is 


selected, and any one of the remaining tasks added to the schedule violates the con- 
straints, the candidate task is rejected, and the next elgible, candidate task (ordered 
by the ranking function H(T)) is selected. The search process continues untill all the 
tasks are scheduled, or no feasible schedule is found. 

Instead of using all of the remaining tasks to determine if a partial schedule 
is strongly-feasible, Stankovic, et al.[Ref. 2], limited the candidate tasks to check 
to some number k. So, insteady of checking N,N — 1,...,1 remaining tasks, or 
N(N — 1)/2 total tasks, they limited the search to k or at most kN tasks to check. 
(This is where the term “myopic” comes in. Instead of looking at all the remaining 
tasks, we “near-sightedly” examine the next k tasks.) 

The set of tasks ready to be scheduled are ordered by the heuristic H(T). The 


candidate heuristics are 


1. Minimum deadline first (Min_D): H(T) = Tp; 

2. Minimum processing time first (Min_P): H(T) = Tp; 

3. Minimum earliest start time first (Min_S): H(T) = Text; 
4, Minimum laxity first (Min_L): H(T) = Tp — (Test + Tp); 
5. Min-D + Min_P: H(T) = Tp + W x Tp; 

6. Min_D + Min-S: H(T) = Tp + W x Tew; 


According to Shiah et al.[Ref. 3], The Min_D + Min_S heuristic is superior in all 
cases. It is supposedly used in Salah Badr’s dissertation, but since his simulation 
studies apparently used tasks with an earliest start time of 0 it defaults to Min_D. 


Min_D is used in the new implementation of the scheduling algorithm. 


C. ANALYSIS 
The scheduler as implemented by Salah Badr in Ada was Order N-squared 
in space. The heart of the code was a call on a search function performing a recur- 


sive search in tree-like fashion of potential schedules. In order to make the routine 
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Figure 1. Plot of scheduler run-time vs. number of tasks to schedule 


O(N) in space it was necessary to pull many of the large data structures out of the 
recursive routine, make them global, and manage changes with other global data 
structures. This necessarily complicated the code to a degree, but the result was an 
O(N) algorithm in space. 

Once the space problem was corrected, it became evident that the routine was 
also O(N?) in time. But this was easily rectified by using the “myopic” algorithm. 
Figure 1 shows the speed-up in processing speed vs. number of tasks to be scheduled 
for different versions of the code. The original data came with the original code. 
After the N? space problem was resolved, and before the myopic version of the code 
was added (first cut) we see that the code still runs in order N’ time. The final cut 
shows the run-time for the final version of the code. 

The original data collected goes upto only 4600 tasks because the storage 
required was O(N”) in the number of tasks to be scheduled. A number larger than 


4600 tasks would cause the program to raise a storage-error exception. 
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Figure 2. Plot of Laxity vs. percent schedules found 


D. SIMULATION 


To test the new scheduler routine, a routine to generate tasks that always have 
a feasible schedule was written. (Actually Badr had a routine to generate tasks, but 
it generated lists of tasks that were “easy” to schedule—that is the alogorithm never 
failed to find a schedule.) This routine varies the number of tasks, the number of 
programmers to use, and the “laxity” of the schedule generated. (Laxity is defined 
to be Tp — (Test + Tp).) It also uses the Ada ’95 random number generators to 
generate uniform distmbutions of random variables. The graph in Figure 2 shows 
the performance of the algorithm when 500 tasks per test case were generated, and 
the laxity was varied between zero and 0.7. As you can see, the algorithm failed 
miserably when there was zero laxity, and got progressively better as this constraint 


was “relaxed.” 





IIf. CALENDAR 


The scheduling algorithm as originally implemented treated time continuously. 
Mapping this “continuous” time to calendar working time is a tedious task, especially 
as the number of tasks to schedule increases. Also, real dates give a better idea of 
the time-frames involved. 

The algorithm to translate a “continous” time to calendar time works as fol- 
lows: Consider the output of the scheduler in Table I for a simple set of 10 tasks. 

The first column is the task id, the second column is the expertise level required 
for the task (more on expertise levels, later), and the third column is the developer 
assigned to the task. (In this case we have three developers: L1, M1, H1.) The second 
to last column is the start time and the last column is the end time in units of hours. 

After translating the start times and end times to calendar times we get the 
output in Table II For this data set the start date was set to July 3rd, 1997. The 
translator also assumed that the work day is eight hours. At NRaD the the work 
weeks are 5/4, i.e., 9 hours a day on Monday thru Thursday and 8 hours on Friday, 
with every other Fmday off. Using -nrad as an input switch to the program, we get 
the new output shown in Table ITI. 

The dates in Table III start on the seventh of July because July 4th is a federal 


3 HIGH Hi O 3 
2 MEDIUM Mi 0 4 
1 LOW Li 0 6 
4 HIGH Hi 3 13 
5 MEDIUM Ml 4 12 
6 LOW Eo Omer) 
8 MEDIUM M1 12 14 
7 LOW Li 10 15 
9 HIGH Hi 13 19 


10 MEDIUM M1 14 24 
Table I. Raw output of Scheduler 


3 HIGH Hl 
2 MEDIUM Ml 
1 LOW Ll 
4 HIGH Hl 
5 MEDIUM M1 
6 LOW Ll 
8 MEDIUM Ml 
7 LOW Ll 
9 HIGH H1 
10 MEDIUM M1 
Table II. 
3 HIGH Hl 
2 MEDIUM Ml 
1 LOW Ll 
4 HIGH H1 
5 MEDIUM Ml 
6 LOW Ll 
8 MEDIUM Ml 
7 LOW Ll 
9 HIGH H1 
10 MEDIUM Ml 


holiday, and an NRaD off-Friday, this moves the off-Friday to the 3rd, so the first 
work-day is actually the seventh. It appears complicated, but the Ada implementation 
handles it quite easily. The format of MM/DD/YYYY+HR is used because daily schedules 
are idiosyncratic. The notation “+HH” means start or finish at that many hours into 


the workday. It should be easy to map this time format to any person’s particular 


07/03/1997-+00 
07 /03/1997+00 
07/03/1997-+00 
07/03/1997+03 
07/03/1997-+04 
07/03/1997+06 
07/07/1997-+04 
07/07/1997+02 
07/07/1997-+05 
07/07 /1997+06 


07/03/1997-+03 
07/03/1997+04 
07/03/1997+06 
07/07 /1997+05 
07/07/1997+04 
07/07/1997-+02 
07/07/1997+06 
07/07/1997+07 
07 /08/1997+03 
07/08/1997-+08 


Standard Work Day 


07/07/1997+00 
07/07 /1997+00 
07/07 /1997+00 
07/07 /1997-+03 
07/07 /1997+04 
07/07 /1997+06 
07/08 /1997+04 
07/08/1997+02 
07/08 /1997-+05 
07/08 /1997+06 


07/07/1997+03 
07/07/1997-+04 
07/07/1997+06 
07/08/1997+05 
07/08/1997+04 
07/08/1997+02 
07/08/1997+06 
07/08/1997+07 
07/09/1997+03 
07/09/1997+08 


Table III. NRaD Schedule 


schedule, but in the interest of time was not done here. 


The calendar package will also compute non-federal holidays such as Easter, 
election-day, and other useful dates. The present version runs in order N? time. It 
should be easy to convert to order N, but due to time constraints, this was not done 


during the course of this thesis. The calendar package was originally added to the 


10 


scheduler, but it didn’t make sense to take an order N? algorithm, turn it into an 
order N one, then turn it back to an order N? one with the addition of the calendar 
package. Besides, the scheduler is used to come up with feasible schedules. Once one 
is obtained, it can then be easily mapped to calendar dates. This separation of tasks 
also preserves the modularity of the codes. The conversion routine to convert from 
“continuous-time” to calendar dates (contocal) is in one of the appendices, as part 


of the scheduler package. 


EL 





IV. EXPERTISE LEVELS 


Every programmer brings certain competencies to the tasks at hand. Some 
are experts in Ada, others in Java, etc. So, the scheduler has been modified to handle 
this. 

In the Shiah, et al. paper[Ref. 3] on scheduling multiple tasks, resources are 


represented by a vector data structure as follows: 
EAT = (EAT, EATo2,..., E AT,) 


(EAT stands for earliest available time.) If a task is ready to be scheduled, and 
it requires resource N, the earliest it can be scheduled is at time EATy. If there 
are multiple instances of a resource then the resources are represented as a matrix, 
and the earliest time a task can be scheduled is the earliest time any one of the 
multiple instances of that resource is available. In Salah Badr’s thesis, he represented 
developers as the resources, and since he classified them as (low, medium, high) he 
could have multiple instances of developers. So the data structure to represent the 
available resources (developers) was a matrix. 

In this latest revision of the code, each developer is unique, there are no 
multiple instances of a developer, so resources (developers) are representeted as a 
vector. Each developer, though, has a capability attribute, which is a map of skills to 
(low, medium, high). For example, one of the inputs to the new scheduler program 
is a file of developers, as shown in Table IV. 

Each developer has an implicit attmbute which is their name. Also, if a capa- 


bility is not given, it is assumed to be low. For example developer “Scott McNealy” 


Bill Gates {ActiveX : High, Java : Low} 
Scott McNealy {Java : High, Unix : Medium} 
Bill Joy {Java : High, Unix : High} 


Table [V. Sample developer file 


13 


Bill Gates {ActiveX : High, Java : Low, Unix : Low, 

Bill Gates : High, Scott McNealy : Low, Bill Joy : Low} 
Scott McNealy {ActiveX : Low, Java : High, Unix : Medium, 

Bill Gates : Low, Scott McNealy : High, Bill Joy : Low} 
Bill Joy {ActiveX : Low, Java : High, Unix : High, 

Bill Gates : Low, Scott McNealy : Low, Bill Joy : High} 


Table V. Sample developer file with implicit capabilities 


is assumed to have low ActiveX skills, while developer “Bill Gates” is assumed to 
have low Unix skills. If a task is to be scheduled that requires medium Unix skills 
and low ActiveX skills then either developer “Scott McNealy” or “Bill Joy” could be 
assigned. On the other hand, if a task requires high ActiveX skills, then only “Bill 
Gates” would fit the bill. If a task came in that required high skills in both ActiveX 
and Java, no developer would fit the bill, and the scheduler code would through an 
Ada (noqualifieddevelopers) exception. If a job came in that required high or 
medium skills in attribute “Scott McNealy” then only he could possibly be assigned 
this job. Table V shows what the capabilities of each developer are with the implicit 
capabilities added. 


14 


V. CONCLUSIONS 


A. SUMMARY OF DESIGN AND IMPLEMENTATION 
The scheduler as implemented can now handle large problems in a reasonable 
time, i.e., ten thousand or more tasks. The scheduled tasks can now be mapped to a 


realistic calendar, and the tasks are now associated with problem-solving skills 


B. FUTURE WORK 

The calendar implementation needs to be optimized. It currently runs in order 
N? time, but could easily be modified to run in order N time. At present the calendar 
model does not consider individual variations in schedules. If a developer were to take 
a day off, the model cannot handle that, as it is only aware of work days and holidays 
for the general work-force. To allow individual schedules into the model a group 
planning program of some kind would be needed. A kludge to get around this in the 
present implementaton, is to create pseudo-tasks lasting the period of time off, and 
requiring only that particular developer perform it. This causes some inaccuracies 
because the current scheduler in non-preemptive, but in real life time off could be 
scheduled in the middle of a task. This weakens the algorithm because it can fail to 
find feasible schedules in which tasks are interrupted by time off. 

Another enhancement that would be useful is the identification of critical 
paths. All schedules have critical paths, that is a sequence of tasks with the least 
laxity. It would be nice to enhance the scheduler to identify these critical paths. The 
project manager could then can focus his attention on those tasks in the critical path, 


as these would be the jobs that puts his schedule most at risk. 
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§ APPENDIX A INTRODUCTION 


1. Introduction. Here is the Ada code for utilites used in Salah Badr’s scheduler 
program. His program was written by him May 25, 1993. It was translated by myself, 
John Evans of NRaD, into Donald Knuth’s WEB format for literate programming. To 
compile and link the code in its present format you will need the Ada version of the WEB 
tool. 

It is available on-line via the world-wide-web at URL: 


http: //white.nosc.mil/~evansjr/literate/ 


2. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
get the book Literate Programming, by Donald Knuth, published by the Center for the 
Study of Language and Information, Stanford University, 1992. Another good source of 
information is the Usenet group comp.programming.literate. It has information on tools 
and answers to Frequently Asked Questions (FAQs). 


3. Who should use the WEB paradigm for programming? Well, not everybody. Here are 
a few paragraphs from Donald Knuth’s book that explains it best. 


4, Retrospect and Prospects. Enthusiastic reports about new computer languages, 
by the authors of those languages, are commonplace. Hence I’m well aware of the 
fact that my own experiences cannot be extrapolated too far. I also realize that, 
whenever | have encountered a problem with WEB, I’ve simply changed the system; 
other users of WEB cannot operate under the same ground rules. 


5. However, I believe that I have stumbled on a way of programming that produces 
better programs that are more portable and more easily understood and maintained 
than ever before; furthermore, the system seems to work with large programs as 
well as with small ones. I’m pleased that my work on typography, which began as 
an application of computers to another field, has come full circle and become an 
application of typography to the heart of computer science; I lke to think of WEB as 
a neat “spinoff” of my research on TRX. However, all of my experiences with this 
system have been highly colored by my own tastes, and only time will tell if a large 
number of other people will find WEB to be equally attractive and useful. 
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6. I made a conscious decision not to design a language that would be suitable for 
everybody. My goal was to provide a tool for system programmers, not for high 
school students or for hobbyists. I don’t have anything against high school students 
and hobbyists, but I don’t believe every computer language should attempt to offer 
all things to all people. A user of WEB needs to be good enough at computer science 
that he or she is comfortable dealing with several languates simultaneously. Since 
WEB combines TFX and Pascal with a few rules of its own, WEB programs can contain 
WEB syntax errors. TRX syntax errors, Pascal syntax errors, and algorithmic errors; 
in practice, all four types of errors occur, and a bit of sophistication is needed to 
sort out which is which. Computer specialists tend to be better at such things than 
other people. I have found that WEB programs can be debugged rapidly in spite of 


the profusion of languages, but I’m sure that many other intelligent people will find 
such a task difficult. 


ie In other words, WEB seems to be specifically for the peculiar breed of people who 
are called computer scientists. And I’m pretty sure that there are also a lot of 
computer scientists who will not enjoy using WEB; some of us are glad that tradi- 
tional programming languages have comparatively primitive capabilities for inserted 
comments, because such difficulties provide a good excuse for not documenting pro- 
grams well. Thus, WEB may be only for the subset of computer scientists who like 
to write and to explain what they are doing. My hope is that the ability to make 
explanations more natural will cause more programmers to discover the joys of lit- 
erate programming, because I believe it’s quite a pleasure to combine verbal and 
mathematical skills; but perhaps I’m hoping for too much. The fact that a least 
one paper has been written that is a syntactically correct ALGOL 68 program en- 
courages me to perservere in my hopes for the future. Perhaps we will even one day 
find Pulitzer prizes awarded to computer programs. 


8. Donald Knuth goes on to write about his hopes for the future of WEB programming. 
In an interview with Donald Knuth by Amazon Books on the release of a new edition of 
Volume 1 of The Art of Computer Programming (July 1, 1997) he was asked: 
Amazon.com: What do you see as the most interesting advance in programming since 
you published the first edition? 

Donald Knuth: It’s what I call literate programming, a technique for writing, docu- 
menting, and maintaining programs using a high-level language combined with a written 
language like English. This is discussed in my book Literate Programming. 


9. Inthe same book, Literate Programming, there is a chapter called How to read a WEB. 
But it is actually quite straightforward. 
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10. Very briefly, each “Module” within angle brackets (< >) is expanded somewhere 
further down in the document. The trailing number you see within the brackets is where 
you can find this expansion. This provides a type of PDL (program descriptor language) 
for your program and greatly aids modularity and readability. It is also a highly effective 
method of top-down programming. The first module here is expanded further down, and 
contains most of the structure in standard Ada packages. 


(Package boiler-plate 12) 
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11. Schedule Tools. 


12. Here, finally, is the boilerplate. The Ada WEB tool atangle reads this and knows to 
write out two separate files, the specification and the body. (The Ada WEB tool aweave 
will write out just one documentation file. ) 


( Package boiler-plate 12) = 
output to file schedtools.ads 


with TeztlIO; 
use TeztlIO; 
with generic_set_pkg; 
with generic_map_pkg ; 
with Generic_List; 
with SchedPrims ; 
use SchedPrims; 
with capability ; 
use capability ; 
with ustrings; 
use ustrings; 
package schedtools is 
(Instantiate generics 16 ) 
(Specification of types and variables visible from schedtools 23 ) 
(Specification of procedures visible from schedtools 26 ) 
end schedtools ; 
output to file schedtools.adb 
with test_io_pkg; 
use test_io_pkq; 
with Ustrings; Use Ustrings; with Ada.calendar; 
use Ada.calendar; 
with calyr; 
use calyr; 
with capability ; 
use capability ; 
package body schedtools is 
( Variables local to schedtools 41 | 
(Procedures and Tasks in schedtools 42 \ 
end schedtools ; 


This code is used in section 10. 
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13. The scheduling tools in this package rely on some other packages. Here is how they 
relate to each other. 


Generic List Pkg SschedPrims Pkg 
schedTools Pkg 
scheduler 


Library Dependence Structure. 


14. The schedules are kept in in linked-lists. Salah Badr’s original code had separate 
routines for each linked list. In this version of the algorithm, I created a generic list type, 
and make multiple instantiations of it for different record types. Details of the differing 
records, comparisons, and display routines can be found in the schedprims package. 


15. Since the main purpose of rewriting the code was to eliminate the order N? space 
requirement, I use linked lists to keep track of additions and deletions to the lists as the 
search space is traversed. What follows are all the instantiations of new linked-lists. 


16. Here I instantiate a list type to manipulate StepRecord types. 
(Instantiate generics 16) = 
package InputList1 is new Generic_list(ElementType => StepRecord , 
DisplayElement = DisplayStepRecord ,"<" = ComparelD ); 
use Inputlist1 ; 
subtype InputList 1s InputList1 . List; 
See also sections 17, 18, 19, 20, 21, and 22. 


This code is used in section 12. 


17. Here Jinstantiate a list type to manipulate StepRecord types, but to restore deletions, 
in case the recursive procedure BranchAndBound needs to back out changes. 
(Instantiate generics 16) += 

package DeletedInputList1 is new Generic_list(ElementType => StepRecord , 


DisplayElement => DisplayStepRecord ,"<" = CompareRecursionLevel ); 
use DeletedInputList]1 ; 


subtype DeletedInputList is DeletedInputList1 .List; 
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18. Here I instantiate a list type to manipulate StepRecord types for the ReadyQueue , 
which requires that the records be sorted in Deadline first order. 


(Instantiate generics 16) += 
package ReadyList1 is new Generic_list( ElementType = StepRecord , 
DisplayElement = DisplayStepRecord ,"<" = CompareDeadline ,"=" => IsEqual); 
use ReadyList1 ; 
subtype Readylist is ReadyList1 .List; 


19. Here I instantiate a list type to manipulate StepRecord types for deletions to the 
ReadyQueue , which requires that the records be sorted in RecurstonLevel first order. 


(Instantiate generics 16) += 
package DeletedReadyList1 is new Generic_list(ElementType => StepRecord , 
DisplayElement = DisplayStepRecord ,"<" = CompareRecursionLevel ); 
use DeletedReadyList1 ; 
subtype DeletedReadyList 1s DeletedReadyList1 .List; 


20. Here | instantiate a list type to manipulate StepRecord types for additions to the 
Ready Queue , which requires that the records be sorted in RecursionLevel first order. 
(Instantiate generics 16) += 
package AddedReadyList1 is new Generic_list(ElementType => StepRecord , 
DisplayElement => DisplayStepRecord ,"<"" = CompareRecursionLevel ); 
use AddedReadyList1 ; 
subtype AddedReadyList is AddedReadyList! .List; 


21. Here I instantiate a list type to manipulate StepRecord types for the ReadyQueue, 
which requires that the records be sorted in Deadline first order. 


(Instantiate generics 16) += 
package ScheduleList1 is new Generic_list(ElementType => ScheduleRecord , 
DisplayElement => DisplayScheduleRecord ,"<" = CompareStartTime ); 
use ScheduleList1 ; 
subtype ScheduleList is ScheduleList1 .List; 


22. Here I instantiate a list type to manipulate StepRecord types for the ReadyQueue, 
which requires that the records be sorted in Deadline first order. 
(Instantiate generics 16) += 

package CalendarList1 is new Generic_list(ElementType => CalendarRecord , 


DisplayElement => DisplayCalendarRecord ,"<" = CompareStartTime ); 
use Calendarlist1 ; 


subtype CalendarList is CalendarList1 .List; 
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23. Made global and visible. 


(Specification of types and variables visible from schedtools 23) = 
maz_recursion : natural <— 0; 
recursion_level : natural <— 0; 

See also sections 24, 25, 33, and 59. 


This code is used in section 12. 


24. When the laxity of the input schedule is “tight,” it may be impossible to find a 
schedule. (Finding a schedule is, after all, an NP-Complete problem.) In this case the 
routine will give up after some amount of effort. In this implementation, I give up if the 
number of “backtracks” is FeasFactor times the total of number of tasks to be scheduled. 
If this number is exceeded then the exception NoFeasibleScheduleFound is thrown. 


(Specification of types and variables visible from schedtools 23) += 
NoFeasitbleScheduleFound : Exception; 
FeasFactor : natural — 10; 


25. Made global and visible. 


(Specification of types and variables visible from schedtools 23) += 
StepList : InputList; 
ReadyQueue : ReadyList; 
DeletedReady Queue : DeletedReadyList ; 
DeletedInputQueue : DeletedInputList; 
AddedReadyQueue : AddedReadyList ; 
Schedule : ScheduleList; 
Calendar : CalendarList; 
FinalSchedule : ScheduleList ; 


26. Print all the records in the Step list. 


(Specification of procedures visible from schedtools 26) = 
procedure PrintAllStepRecords(L : in InputList); 
See also sections 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, and 39. 


This code is used in section 12. 


27. Print all the records in the Step list. 


(Specification of procedures visible from schedtools 26) += 
procedure PrintAllStepRecords(L:in ReadyList ); 


28. Print all the records in the Schedule list. 


(Specification of procedures visible from schedtools 26) += 
procedure PrintAllScheduleRecords(L :in ScheduleList ); 
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29. Print all the records in the Schedule list. 


(Specification of procedures visible from schedtools 26) += 
procedure PrintAllCalendarRecords(L :in out ScheduleList ); 


30. Print all the records in the Schedule list. 


(Specification of procedures visible from schedtools 26) += 
procedure SaveAllScheduleRecords (LZ :in out ScheduleList ); 


31. Creating new step from a file and linking it to the step list. 


(Specification of procedures visible from schedtools 26) += 
procedure CreateNewStepList(L : in out InputList); 


32. 


(Specification of procedures visible from schedtools 26) += 
Procedure CreateDeadlineFirstSchedule(mr :in out natural; num_developers : natural ); 


od. 


(Specification of types and variables visible from schedtools 23) += 
type DesignerMatriz is array (POSITIVE range <>) of natural; 


34. Creating a new schedule record 


(Specification of procedures visible from schedtools 26) += 
procedure CreateScheduleRecord(Rec : out ScheduleRecord;S$_ID : in 
natural; TIME1 : in natural; TIME2 : in natural; $S_LEVEL : in 


cap_map.map; Developer : in ustring ); 


35. 


(Specification of procedures visible from schedtools 26) += 
procedure LevelMinmum(MATRIX : in DesignerMatriz; LEVEL : in 
cap_map.map; J :in out natural); 


36. checking the in_degree of the successors of the assigned step. This works with 
deadline heuristic 


(Specification of procedures visible from schedtools 26) += 
procedure CheckInDegree( Rec : in StepRecord; Queue : in out ReadyList; InList : in 
out InputList; finish_t : in natural); 


37. 


(Specification of procedures visible from schedtools 26) += 
procedure StronglyFeasible(Queue : in out ReadyList; MATRIX : in 
DesignerMatriz; FEASIBLE : in out boolean); 
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38. Assign a step to a designer according to its deadline and its expertise level 


(Specification of procedures visible from schedtools 26) += 
procedure AssignStep( Current : StepRecord; MATRIX : in out DesignerMatriz; 
Sch :in out ScheduleList; Finish : in out natural; FEAS : out boolean); 


39. 


(Specification of procedures visible from schedtools 26) += 
procedure BranchAndBound(S$_List : in out InputList; R._Queue : in out ReadyList; 
F_Sched : in out ScheduleList; MATRIX : in DesignerMatriz; Found : in out 
BOOLEAN); 
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40. Schedule Tools Body. 


41. Global variable used to identify different tasks. 


( Variables local to schedtools 41) = 
StepID : natural — 1; 
data_file , data2_file : file_type; 
FOUND : boolean — FALSE; 
FEASIBLE : boolean — TRUE; 
debug : boolean < false; 
debug2 : boolean < false; 
Start Time : Time; 
dailyhours : WorkHours < (ConvertHoursToDuration(8), ConvertHoursToDuration (8), 
ConvertHoursToDuration(8), ConvertHours ToDuration (8), 
ConvertHoursToDuration(8)); 
NRaD : boolean < false; 
See also sections 55 and 56. 


This code is used in section 12. 


42. Print all the records in the STEP list. 


(Procedures and Tasks in schedtools 42) = 
procedure PrintAllStepRecords(L :in InputList) is 
begin 
StepRecordHeading; Display(L); 
end PrintAllStep Records ; 
See also sections 43, 44, 45, 47, 49, 52, 53, 57, 58, 62, 66, 70, and 71. 


This code is used in section 12. 


43. Print all the records in the STEP list. 


( Procedures and Tasks in schedtools 42) += 
procedure PrintAllStepRecords(L:in ReadyList ) is 
begin 

StepRecordHeading ; Display(L); 
end PrintAllStepRecords ; 


44. Print all the records in the STEP list. 


( Procedures and Tasks in schedtools 42) += 
procedure PrintAllScheduleRecords(L :in ScheduleList ) is 
begin 
ScheduleRecordHeading; Display(L); 
end PrintAllScheduleRecords ; 
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§45 APPENDIX A SCHEDULE TOOLS BODY 
45. Print all the records in the STEP list. 


(Procedures and Tasks in schedtools 42) += 
procedure SaveAllScheduleRecords(L:in out ScheduleList ) is 
input : Ustring; 
size : natural; 
cur : ScheduleRecord ; 
begin 
(Get output file name 46) 
put_line("Opening,your,output,file."); create(data2_file, out_file, S(input )); 
size < ListSize(L); rewind(L); 
fori €1.. size loop 
if 1=1 then 
getCurrent (L, cur); 
else 
getNezt(L, cur); 
end if; 
SaveScheduleRecord (cur, data2_file ); 
end loop; 


end SaveAllScheduleRecords ; 


46. 


(Get output file name 46) = 
put_line("Please,Enter,Output,File,Name:,,"); get_line(input); 


This code is used in section 45. 


47. Print all the records in the STEP list. 


(Procedures and Tasks in schedtools 42) += 
procedure PrintAllCalendarRecords(L:in out ScheduleList ) is 
size : natural; 
cur : ScheduleRecord ; 
cal : CalendarRecord ; 
dur : Duration; 
begin 
CalendarRecordHeading ; 
(Convert ScheduleList to CalendarList 48) Display( Calendar ); 
end PrintAllCalendarRecords ; 
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48. 


(Convert ScheduleList to CalendarList 48) = 
MakeEmpty(Calendar ); size — ListSize(L); Rewind(L); 
forz €1.. size loop 
if z= 1 then 
GetCurrent(L, cur); 
else 
GetNezt(L, cur); 
end if; 
dur «<— ConvertHoursToDuration(cur.StartTime ); 
cal.StartTime <— DurationToCalendarTime(StartTime, dailyhours , dur, NRaD); 
dur — ConvertHours ToDuration(cur.FinishTime ); 
cal. Finishtime <— DurationtoCalendarTime( StartTime, dailyhours , dur, NRaD ); 
cal.StepId — cur.Stepld; cal.Designer — cur.Designer; 


cap._map .assign(cal.StepLevel, cur.StepLevel); InsertInOrder( Calendar, cal); 
end loop; 


This code is used in section 47. 
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49. Creating new step from a file. 


(Procedures and Tasks in schedtools 42) += 
procedure CreateNewStepList(Z :in out InputList) is 
sr: StepRecord ; 
input : Ustring; 
do_alternate : boolean — false; 
(Variables local to CreateNewStepList 51) 
begin 
MakeEmpty (L); 
StepId <1; 
put_line("Please,Ent er, INPUT, FILE,NAME,," ); 
get_line (input ); 
put_line("Opening, your,data,file,," ); 
open(data_file , in_file, S(input )); 
while -end_of_file(data_file) loop 
sr.Stepld <— StepID; 
if do_alternate then 
DeadTime — get_date(data_file ); 
else 
nat_to .get(data_file , sr. Deadline ); 
end if; 
nat_to .get(data_file, sr .Priority ); 
nat_to .get(data_file, sr .EstimatedDuration ); 
if do_alternate then 
Earlytime — get_date(data_file ); 
else 
nat_to .get(data_file, sr.EarliestStart Time); 
end if; 
getf_set( data_file, sr .Predecessors ); 
getf_set(data_file, sr Successors ); 
declare 
yrcap : cap_map.map; 
begin 
get_capability (data_file, yrcap); cap_map.assign(sr.EzpLevel, yrcap ); 
end; 
sr .InDegree — nat_set.size(sr.Predecessors ); 
if do_alternate then 
(Convert calendar times to absolute times 50 ) 


else 
StartTime <— Time_Of (1997, 7,3, 0.0); 
end if; 
AddToEnd(L, sr); StepID <— StepID + 1; 
end loop; 
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CLOSE(data_file ); 
end CreateNewStepList; 


90. 


(Convert calendar times to absolute times 50) = 
if StepID = 1 then 
StartTime — Earlytime; 
end if; 
dur <— CalendarTime ToDuration (Start Time, dailyhours , Deadtime, NRaD ); 
sr.Deadline «< ConvertDurationTo Hours (dur ); 
dur — CalendarTime ToDuration(StartTime, dailyhours , EarlyTime, NRaD ); 
sr.EarliestStartTime — ConvertDurationToHours (dur ); 


This code is used in section 49. 


ol. 


( Variables local to CreateNewStepList 51) = 
dur : Duration; 
EarlyTime, DeadTime : Time; 


This code is used in section 49. 


52. 


(Procedures and Tasks in schedtools 42) += 
procedure RelnitializeMatriz (MATRIX : in out DesignerMatriz) is 
begin 
for2€1..matriz'length loop 
matriz (2) — 0; 
end loop; 
end RelnitializeMatriz ; 
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53. Creating new step. 


(Procedures and Tasks in schedtools 42) += 
Procedure CreateDeadlineFirstSchedule(mr : in out natural; num_developers : natural ) 
is Current : StepRecord; 
Feasible : boolean <— True; 
eat : designermatriz(1 .. num_developers ); 
begin 
Kntr — ListSize(StepList); (Initialize the lists for intensive list-processing 54 ) 
Rewind (StepList); GetCurrent(StepList , Current); 
fori é€1..Kntr loop 
if Current .InDegree = 0 then 
DeleteCurrent(StepList ); InsertInOrder (Ready Queue , Current ); 
if 1 < Knitr then 
GetCurrent (StepList, Current); 
end if; 
else 
if 1 < Kntr then 
GetNezt( StepList , Current ); 
end if; 
end if; 
end loop; 
Feasible — True; Found — False; ReInitializeMatriz( EAT ); 
StronglyFeasible(ReadyQueue , EAT , Feasible ); 
if Feasible then 
put_line("Calling, BranchAndBound, Routine." ); 
BranchAndBound ( StepList , ReadyQueue , Schedule, EAT , FOUND); 
put_line("“Returned from, BranchAndBound, Routine." ); 
end if; 
if ~FOUND then 
put_line ( “SORRY, THERE, ,IS,,NO,,FEAS IBLE, SCHEDULE" VF 
end if; 
Mr — maz_recursion; 


end CreateDeadlineFirstSchedule ; 


54. If this is not the first time this routine is called then it behooves us to clean up the 
old lists from previous processing. If this is the first time, no harm done. 


(Initialize the lists for intensive list-processing 54) = 


MakeEmpty(ReadyQueue ); MakeEmpty(Schedule); MakeEmpty (DeletedReady Queue ); 
MakeEmpty(DeletedInputQueue); MakeEmpty (AddedReadyQueue ); 


This code is used in section 53. 
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55. 
( Variables local to schedtools 41) += 


kntr : integer <— 0; 


56. 


( Variables local to schedtools 41) += 
counter : natural — 0; O{Usedfor tracking backtracking ©} 


57. Creating a new schedule record 


(Procedures and Tasks in schedtools 42) += 
procedure CreateScheduleRecord(Rec : out ScheduleRecord;S_ID : in 
natural; TIME] : in natural; TIME2 : in natural; S_LEVEL : in 
cap.map.map; Developer :in ustring) is 
begin 
Rec.StepID — S_ID; Rec.StartTime — TIME1; Rec.FinishTime — TIME2; 
Rec.Designer — Developer; cap_map.assign( Rec .StepLevel, S_LEVEL); 
end CreateScheduleRecord ; 


58. 


(Procedures and Tasks in schedtools 42) += 
procedure LevelMinmum({MATRIX : in DesignerMatriz; LEVEL : in 
cap-map.map;J :in out natural) is 
min : natural; 
n: natural; 
begin 
j <0; min — natural'last; n — 1; 
if is_qualified (level,n) then 
j <—1; min — matriz(1); 
end if; 
for m €2.. matriz'length loop 
if matriz(m) < min then 
if 1s_qualified (level, m) then 
min < matriz(m); 7 —™m; 
end if; 
end if; 
end loop; 
if 7 = 0 then 
raise noqualifieddevelopers ; 
end if; 


end levelminmum; 
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39. 


(Specification of types and variables visible from schedtools 23) += 
noqualifieddevelopers : exception; 
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60. Check In Degree. Checking the in_degree of the successors of the assigned step. 
This works with deadline heuristic 


61. Presently changes the start-time of any successors. Will need to modify when I 
convert the updates from a recursive local variable to a global one. Also deletes a scheduled 


task from the INPUT_LIST. Then it updates the queue of “ready” tasks. 


Precedence Graph 
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62. This procedure loops through the entire InputList finding the successors of Rec. 
Once found it updates the EarliestStartTime. Also, if the InDegree reaches zero this 
means it no longer is waiting on a predessor to be scheduled, it is “ready” to be sceduled— 
that is, moved from the InputList to the ReadyQueue. 

Note: It appears that the Predecessor field of the StepRecord is ignored. Only the 
successor field is used. 


(Procedures and Tasks in schedtools 42) += 
procedure CheckInDegree( Rec : in StepRecord; Queue :in out Readylist; InList : in 
out InputList; finish_t : in natural) is 
Current : StepRecord ; 
t: nat_set.set — Rec.Successors; 
k, kntr : natural; 
FOUND : boolean — FALSE; 
deleted : boolean <— false; 
begin 
if nat.set.size(t) ~ 0 then 
Rewind (InList); kntr — ListSize(InList ); GetCurrent(InList , Current); 
fori €1..kntr loop 
k — Current.Stepld; 
if nat_set.member(k,t) then 
if Current.EarliestStartTime < finish_t then 
Current.EarliestStarttiume <— finish_t; 
end if; 
Current .InDegree — Current .InDegree — 1; 
if Current.InDegree = 0 then 
(Move record from input list to ready list 64) 
else 
Update Current (InList , Current ); 
end if; 
end if; 
(Get next record 63) 
end loop; 
end if; 
end CheckInDegree ; 
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63. 


(Get next record 63) = 
if 2 < knir then 
if deleted then 
GetCurrent (InList, Current); deleted — false; 
else 
GetNezt(InList , Current); 
end if; 
end if; 


This code is used in section 62. 


64. 


(Move record from input list to ready list 64) = 
DeleteCurrent(InList); Current .recursionlevel — recursion_level; 
InsertInOrder (Queue, Current); InsertInOrder (AddedReady Queue , Current ); 
Current.InDegree — Current.Indegree + 1; 
InsertInOrder (DeletedInputQueue, Current); deleted «— true; 
if debug then 
put_line("Moving,Record,,to,DeletedInputQueue."); Display (DeletedInput Queue ); 
end if; 


This code is used in section 62. 
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65. StrongFeasible. Checking the feasibility of the schedule with each step in the 
ready queue. 
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66. Definition: A partial feasible schedule is said to be strongly-feasible if all the 
schedules obtained by extending the current schedule with any one of the remaining tasks 
are also feasible. Thus, if a partial feasible schedule is found not to be strongle-feaszble 
because, say, task IT’ misses its deadline when the current schedule is extended by T, then 
it is appropriate to stop the search since none of the future extensions involving task T 
will meet its deadline. In this case, a set of tasks can not be scheduled given the current 
partial schedule. (In the terminology of branch-and-bound techniques, the search path 
represented by the current partial schedule is bound since it will not lead to a feasible 
complete schedule. ) 


(Procedures and Tasks in schedtools 42) += 
procedure StronglyFeasible(Queue : in out ReadyList; MATRIX : in 
DesignerMatriz; feasible :in out boolean) is 
temp : natural; 
J: natural — 1; 
LL: natural — 1; 
min : natural < 0; 
kntr : natural — 0; 
myonum : natural — 0; 
Current : Step Record ; 
Myopic_Num : constant natural — 7; 
begin 
if debug then 
put_Line("StronglyFeasible>,,Start,," ); 
end if; 
feasible — True; kntr — ListSize(Queue); (Compute myopic number 67) 
Rewind ( Queue ); 
for1€1..myonum loop 
if feasible then 
exit; 
end if; 
if 7=1 then 
GetCurrent( Queue, Current ); 
else 
GetNezt( Queue, Current ); 
end if; 
LevelMinmum( MATRIX , Current .EzpLevel, J); min — MATRIX (J); 
( Debug code set 1 68) 
if min > Current.EarliestStartTime then 
temp <— min; 
else 
temp <— Current.EarliestStarttime; 
end if; 
temp <— temp + Current.EstimatedDuration; { Debug code set 2 69) 
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if temp > Current.Deadline then 
feasible — False; 
end if; 
end loop; 
end StronglyFeasible : 


67. Without this tidbit of code, the algorithm goes from order n to order n?’. 
(Compute myopic number 67) = 
if knir > Myopic_Num then 
myonum <— Myopic_Num; 
else 
myonum <— kntr; 
end if; 


This code is used in section 66. 


68. 
(Debug code set 1 68) = 
if debug then 
put("StronglyFeasible>,,Id,="); nat_io.put(Current.Stepld ,1); 
put("yuminy=,"); nat.to.put(min,2); put(". Current .EarliestStartTime,=\," ); 
nat_io.put( Current .EarliestStartTime ,2); put_line(".."); 
end if; 


This code is used in section 66. 


69. 


( Debug code set 2 69) = 
if debug then 
put("StronglyFeasible>,,"); nat_io.put(1,2); put(". ytempy=y" ); 
nat_io.put(temp,2); put(". Current .Deadline=," ); 
nat_io.put(Current.Deadline ,2); put_line("..,"); 
end if; 


This code is used im section 66. 
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70. <AssignStep. Assign a step to a designer according to its deadline and its expertise 
level: BRANCH AND BOUND CASE 


(Procedures and Tasks in schedtools 42) += 
procedure AssignStep(Current : in StepRecord; MATRIX : in out 
DesignerMatriz; Sch :in out ScheduleList; Finish : in out natural; FEAS : out 
boolean ) is 
J : natural; 
MIN : natural; 
temp : natural — 0; 
temp1 : StepRecord — Current; 
Dummy : ScheduleRecord ; 
begin 
LevelMinmum(MATRIX , Current.EzpLevel, J); MIN — MATRIX (J); 
if MIN < Current.EarliestStartTime then 
temp <— Current.EarliestStartTime; finish — temp + Current.EstimatedDuration; 
if finish > Current. DEADLINE then 
FEAS <— FALSE; 
else 
FEAS — TRUE; MATRIX (J) <— finish; CreateScheduleRecord (Dummy, 
temp1 .StepID, temp, finish, temp1 .EzpLevel , get_developer_name(j)); 
AddToEnd (Sch, Dummy); 
end if; 
else 
temp — MIN; finish — temp + Current.EstimatedDuration ; 
if finish > Current.Deadline then 
FEAS <— FALSE; 


else 
FEAS — TRUE; MATRIX (J) <— finish; CreateScheduleRecord (Dummy, 
temp .StepID, temp, finish, temp1 .EzpLevel, get_developer_name(7)); 
AddToEnd (Sch, Dummy); 
end if; 
end if; 
end AssignStep; 


42 
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71. Branch And Bound. 


(Procedures and Tasks in schedtools 42) += 
procedure BranchAndBound(S_List : in out InputList; R_Queue : in out ReadyList ; 
F_Sched : in out ScheduleList; MATRIX : in DesignerMatriz; Found : in out 
BOOLEAN) is 
( Variables local to BranchAndBound 73) 
begin 
( Update some recursion stuff 72) 
if IsEmpty(R_ Queue) then 
if do_verbose then 
ScheduleRecordHeading; PrintAllScheduleRecords(F_Sched); new_line; 
end if; 
put("Backtracking,,:=,"); test_io_pkg.put(counter); new_line; 
O{ Copy(F_Sched, FinalSchedule ); Q}Found — True; 
if debug then 
put_line("Found,ayvalid,schedule."); 
end if; 
elsif =found then 
OrigSize — ListSize(R_Queue ); 
for1 IN1.. OrigSize loop 
(Update backtrack counter 74 ) 
(Copy linked lists and the designer matrix onto the stack 80) 
(Get appropriate R_Queue record 76 ) 
if debug then 
put("BranchAndBound>,,Current,,=,,"); DisplayStepRecord (Current ); 
put("BranchAndBound>,,ListSize(R_Queue) is," ); 
nat_io .put (ListSize(R_Queue)); put_line(".."); 
end if; 
AssignStep( Current, MAT , F_Sched, FinishTime, Feasible ); 
CheckInDegree( Current, R_Queue, S_List, FinishTime ); 
(Delete appropriate R_Queue record 78 ) 
if debug then 
put_line("After assigning, step, but,before, testing, for,Feasibility: Bp; 
PrintAllStepRecords(R Queue); PrintAllSchedule Records ( F_Sched ); 
end if; 
StronglyFeasible(R_ Queue, MAT, Feasible! ); 
if Feasible! then 
BranchAndBound (S_List , R_Queue, F_Sched, MAT, Found); 
(Update recursion stuff again 79 ) 
end if; 
(Free up local linked lists 383 ) 
if Found then 


exit; 
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end if; 

end loop; 

if recursion_level <1 then 
if debug then 

put_line("BranchAndBound>,Finished, unwinding, the,stack."): 

end if; 

end if; 

end if; 
end BranchAndBound ; 


72. 


(Update some recursion stuff 72) = 

if (diag_sched V diag_step V diag_ready_queue) then 
do_verbose «<— true; 

end if; 

recursion_level — recursion_level + 1; 

if recurston_level > maz_recursion then 
maz_recursion <— recursion_level; 

end if; 


This code is used 1n section 71. 


73. 
( Variables local to BranchAndBound 73) = 


do_verbose : boolean < false; 
OrigSize : natural; 
See also sections 75, 77, 82, 85, 88, and 90. 


This code is used in section 71. 


74. 
(Update backtrack counter 74) = 
if i171 then 
counter < counter + 1; 
end if; 
TotSize <— ListSize(R_ Queue ) + ListSize(S_List ) + ListSize (F_Sched); 
if counter > (FeasFactor * TotSize) then 
raise NoFeasibleScheduleFound ; 
end if; 


This code is used in section 71. 


75. 
( Variables local to BranchAndBound 73) += 


TotSize : natural; 
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76. 


(Get appropriate R_ Queue record 76) = 

appropriate «— i — (OrigSize — ListSize(R_ Queue )); 

if debug then 
put("BranchAndBound>,,Getting,number,,"); nat_to.put( Appropriate , 1); 
put("\,record,,in, Ready, Queue."); put("(Ciy=u"); nat_io.put(z, 1); 
put(", ,Origsize,=,"); nat_io.put( Origsize,1); put_line(")."); 

end if; 

GetNth(R_ Queue, appropriate , Current ); 


This code is used in section 71. 


ls 
( Variables local to BranchAndBound 73) += 


appropriate : natural; 


78. 
(Delete appropriate R_Queue record 78) = 
if debug then 
put_line("Deleting, appropriate,R_Queue,record."); 
end if; 
GetNth( R_ Queue, appropriate, Current); DeleteCurrent(R_ Queue ); 
Current.RecursionLevel — Recursion_ Level; 
InsertInOrder (DeletedReady Queue , Current ); 
if debug then 
put_line("Finished, deleting, appropriate,R_Queue,record."); 
end if; 


This code is used in section 71. 


79. 


(Update recursion stuff again 79) = 
recursion_level < recursion_level — 1; 


This code is used in section 71. 


80. As far as I can see the step list is never modified, so why is it copied? Aha! It is 
modified in procedure check_in_degree . 


( Copy linked lists and the designer matrix onto the stack 80) = 
(Do diagnostics 81) 
@{Copy(S_List, InList); Copy(R_Queue, Queue); Copy(F_Sched, Sched ); 
C}MAT — MATRIX; 


This code is used in section 71. 
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Siz 
(Do diagnostics 81) = 
if do_verbose then 
$1116 6 
put("Recursion,level,is,"); natio.put(recursion_level); put_line(".,,"'); 
end if; 
if diag_step then 
PrintAllStep Records (S_List ); 
end if; 
if diag_ready_queue then 
PrintAllStepRecords (R. QUEUE); 
end if; 
if diag_sched then 
PrintAllSchedule Records (F_sched ); 
end if; 


This code is used in section 80. 


82. 
( Variables local to BranchAndBound 73) += 


diag_step : boolean «< false; 
diag_ready_queue : boolean < false; 
diag_sched : boolean < false; 


83. 


( Free up local linked lists 83) = 
O{MakeEmpty(InList); MakeEmpty( Queue); MakeEmpty(Sched ); 
@}( Restore R_Queue 34) 
(Restore $_List 86) 
(Restore F_Sched 89) 


This code is used in section 71. 
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84. 


(Restore R.Queue 84) = 
if —~Found then 
if debug then 
put_line("Restoring,R_Queue."); 
end if; 
Dsize — ListSize (AddedReady Queue ); 
if Dsize £0 then 
GetNth(AddedReady Queue , Dsize , Current ); 
while Current.recursionlevel = recursion_level loop 
Delete Current(AddedReady Queue ); 
DeleteMatching(R_Queue, Current, Success ); 
if debug then 
put("Deletingyrecord,,"); put_line("From ReadyQueue."); 
DisplayStep Record (Current ); 
end if; 
if —~Success then 
put_Line("Did,not, find matching, record!"); 
end if; 
Dsize <— ListSize ( AddedReadyQueue ); 
if Dsize = 0 then 
exit; 
else 
GetNth( AddedReadyQueue , Dsize , Current ); 
end if; 
end loop; 
end if; 
Dsize — ListSize(DeletedReady Queue ); 
GetNth( DeletedReady Queue, Dsize, Current); DeleteCurrent(DeletedReady Queue ); 
InsertInOrder (R_ Queue, Current); (Reset InDegree 87) 
if debug then 
put_line("Finished, restoring, R_Queue."); 
end if; 
end if; 


This code is used in section 83. 


85. 
( Variables local to BranchAndBound 73) += 


Success : boolean; 
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86. 


(Restore $_List 86) = 
if —Found then 
Dsize — ListSize(DeletedInput Queue ); 
if Dsize #0 then 
GetNth(DeletedInputQueue, Dsize, Current ); 
while Current .recursionlevel = recursion_level loop 
DeleteCurrent( DeletedInput Queue); InsertInOrder(S_List, Current ); 
(Reset InDegree 87) 
Dsize — ListSize(DeletedInput Queue ); 
if Dsize #0 then 
GetNth(DeletedInput Queue, Dsize, Current ); 
else 
exit; 
end if; 
end loop; 
end if; 
end if; 


This code is used in section 83. 
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87. 


(Reset InDegree 87) = 
if debug then 
put("Resetting, InDegree,,for,successors,ofy:.,"); DisplayStepRecord ( Current ); 
end if; 
Dsize — ListSize(S_List); t — Current.Successors; Rewind (S_List ); 
forz €1.. Dsize loop 
if z= 1 then 
GetCurrent($_List, Current ); 
else 
GetNezt(S_List , Current); 
end if; 
k — Current .Stepld; 
if debug then 
put("StepId.=,"); put(k); put(". Now checking, for,membership." ); 
end if; 
if nat_set.member(k,t) then 
if debug then 
put_line("(Member)"); DisplayStep Record (Current ); 
end if; 
Current .InDegree — Current .InDegree +1; UpdateCurrent(S_List, Current); 
if debug then 
DisplayStepRecord ( Current ); 
end if; 
else 
if debug then 
put_line(" (Not,Member)"); 
end if; 
end if; 
end loop; 
This code is used in sections 84 and 86. 


88. 
( Variables local to BranchAndBound 73) += 


t: nat_set.set; 
k : natural; 
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89. 


(Restore F_Sched 89) = 
if Found then 
if debug then 
put_line("Restoring,F_Sched."); 
end if; 
Dsize — ListSize(F_Sched); GetNth(F_Sched , Dsize , DCurrent ); 
DeleteCurrent(F_Sched ); 
if debug then 
put_line("Finished,restoring,,F_Sched."); 
end if; 
end if; 


This code is used in section 83. 


90. 


( Variables local to BranchAndBound 73) += 
Inlist : InputList; 
DCurrent : ScheduleRecord ; 
O{ Queue : Readylist ; 
Sched : ScheduleList ; 
©} Dsize : natural; 
Current : StepRecord ; 
MAT : DesignerMatriz(1 .. matriz'length); 
Feasible : BOOLEAN «<— TRUE; 
Feastble1 : BOOLEAN «< TRUE; 
FinishTime : natural — 0; 
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91. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


92. I enclose the RCS Keywords here as well, since that is how I keep track of versions. 


$RCSfile: schedtools.aweb,v 
$Revision: 1.5 
$Date: 1997/08/24 22:27:29 
$Author: evansjr 
$Id: schedtools.aweb,v 1.5 1997/08/24 22:27:29 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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93. Index. Here is a cross-reference table for the schedtools package. All modules 
in which an identifier is used are listed with that identifier, except that reserved words are 
indexed only when they appear in format definitions, and the appearances of identifiers 
in module names are not indexed. Underlined entries of subprograms and packages corre- 
spond to sections where this entity is specified, whereas entries in italic type correspond 
to the section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


Ada: 12. counter: 56, 71, 74. 
AddedReadylist: 20, 25. create: 45. 
AddedReadylist1: 20. CreateDeadlineFirstSchedule: 32, 53. 
AddedReadyQueue: 25, 54, 64, 84. CreateNewStepList: 31, 49. 
AddToEnd: 49, 70. CreateScheduleRecord: 34, 57, 70. 
appropriate: 76-78. cur: 45, 47-48. 
Appropriate: 76. Current: 38, 53, 62-64, 66, 68-71, 76, 
assign: 48-49, 57. 78, 84, 86-87, 90. 
AssignStep: 38, 70, 71. dailyhours: 41, 48, 50. 
backtracking: 56. data_file: 41, 49. 
boolean: 37-38, 41, 49, 53, 62, 66, 70, data2_file: 41, 45. 

73, 82, 85. DCurrent: 89-90. 
BOOLEAN: 39, 71, 90. Deadline: 18, 21-22, 49-50, 66, 69-70. 
BranchAndBound: 17, 39, 53, 71. DEADLINE: 70. 
cal: 47-48. DeadTime: 49, 51. 
Calendar: 25, 47-48. Deadtime: 50. 
calendar: 12. debug: 41, 64, 66, 68-69, 71, 76, 78, 
CalendarList: 22, 25. 84, 87, 89. 
CalendarList1: 22. debug2: 41. 
CalendarRecord: 22, 47. DeleteCurrent: 53, 64, 78, 84, 86, 89. 
CalendarRecordHeading: 4’. deleted: 62-64. 
CalendarTimeToDuration: 50. DeletedInputlist: 17, 25. 
calyr: 12. DeletedInputList1: 17. 
cap-_map: 34-35, 48-49, 57-58. DeletedInputQueue: 25, 54, 64, 86. 
capability: 12. DeletedReadylist: 19, 25. 
check_in_degree: 80. DeletedReadyList1: 19. 
CheckInDegree: 36, 62, 71. DeletedReadyQueue: 25, 54, 78, 84. 
CLOSE: 49. DeleteMatching: 84. 
CompareDeadline: 18. Designer: 48, 57. 
CompareID: 16. DesignerMatriz: 33, 35, 37-39, 52, 58, 
Compare RecursionLevel: 17, 19-20. 66, 70-71, 90. 
Compare StartTime: 21-22. designermatriz: 53. 
ConvertDurationToHours: 50. Developer: 34, 57. 
ConvertHoursToDuration: 41, 48. diag_ready_queue: 72, 81-82. 
Copy: 71, 80. diag_sched: 72, 81-82. 
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72, 81-82. 
42-44, 47, 64. 
DisplayCalendarRecord : 
DisplayElement: 16-22. 
DisplayScheduleRecord: 21. 
DisplayStepRecord: 16-20, 71, 84, 87. 

49. 

71-73, 81. 
84, 86-87, 89-90. 
Dummy: 70. 

dur: 47-48, 50-51. 
Duration: 47, 51. 
DurationToCalendarTime: 
DurationtoCalendarTime: 
EarliestStarttume: 62, 66. 
EarlhiestStart Time: 
EarlyTime: 50-51. 
Earlytime: 49-50. 
eat: 53. 

EAT: 53. 
Element Type: 
end_of_file: 49. 
EstimatedDuration: 
Exception: 24. 
EzpLevel: 49, 66, 70. 
F_Sched: 39, 71, 74, 80, 89. 
F sched: 81. 

FALSE: 41, 62, 70. 

False: 53, 66. 

false: 41, 49, 62-63, 73, 82. 
FEAS: 38, 70. 
FeasFactor: 24, 74. 
feasible: 66. 
FEASIBLE: 
Feasible: 
Feasible1: 71, 90. 
filetype: 41. 
FinalSchedule : 
Finish: 38, 70. 
finish: 70. 
finish_t: 36, 62. 
FinishTime: 48, 57, 71, 90. 
Finishtime: 48. 
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diag_step: 
Display: 
Zon 


do_alternate: 
do_verbose: 
Dsize: 


48. 
48. 


NGa22e 


49, 66, 70. 


ae. 
53, 71, 90. 


25, 71. 


49-50, 62, 66, 68, 70. 
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jound: 71. 

FOUND: 41, 53, 62. 

Found: 39, 53, 71, 84, 86, 89. 
Generic_list: 16-22. 
Generic_List: 12. 
generic_map_pkg: 12. 
generic_set_pkg: 12. 
get: 49. 
get_capability : 
get_date: 49. 
get_developer_name: 
getline: 46, 49. 
GetCurrent: 48, 53, 62-63, 66, 87. 
getCurrent: 45. 

49. 


45. 


49. 


70. 


getf_set: 
getNezt: 
GetNezt: 48, 53, 63, 66, 87. 
GetNth: 76, 78, 84, 86, 89. 
az: 45, 48, 52, 53, 62, 66, 71, 87. 
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LN 

in_degree: 36, 60. 

in_file: 49. 

InDegree: 49, 53, 62, 64, 87. 

Indegree: 64. 

InList: 36, 62-64, 80, 83, 90. 

input: 45-46, 49. 

INPUT LISS Ole 

InputList: 16, 25-26, 31, 36, 39, 42, 
49, 62, 71, 90. 

Inputlist1: 16. 

InsertInOrder: 48, 53, 64, 78, 84, 86. 

integer: 90. 

is_qualified: 58. 

IsEmpty: 71. 

IsEqual: 18. 

Kntr: 58. 

kntr: 55, 62-63, 66-67. 

last: 58. 

length: 52, 58, 90. 

level: 58. 

LEVEL: 35, 58. 

LevelMinmum: 35, 58, 66, 70. 

levelminmum: 58. 


INDEX 


Tist: 16-22. 

ListSize: 45, 48, 53, 62, 66, 71, 74, 76, 
84, 86-87, 89. 

TOO: 

MakeEmpty: 48-49, 54, 83. 

map: 34-35, 49, 57-58. 

MAT: 71, 80, 90. 

MATRIX: 35, 37-39, 52, 58, 66, 70- 
71, 80. 

52, 58, 90. 

Zoe, (2s 

62, 87. 

58, 66, 68. 

70. 

a2 03. 

myonum: 66-67. 

Myopic_Num: 66-67. 

49, 68-69, 71, 76, 81. 

nat_set: 49, 62, 87-88. 

natural: 23-24, 32-36, 38, 41, 45, 47, 53, 
56-58, 62, 66, 70, 73, 75, 77, 88, 90. 

new_line: 71. 

NoFeasibleScheduleFound: 24, 74. 

noqualifieddevelopers: 58-59. 

NRaD: 41, 48, 50. 

num_developers: 32, 53. 

open: 49. 

OrigSize: 

Origsize: 76. 

out_file: 45. 

POSITIVE: 33. 

62. 

Predecessors: 49. 

PrintAllCalendarRecords : 

PrintAllScheduleRecords : 

PrintAllStepRecords: 26, 
71, 81. 

Priority: 49. 

Procedure: 32, 53. 

put: 68-69, 71, 76, 81, 84, 87. 

put.Line: 66, 84. 

put_line: 45-46, 49, 53, 64, 68-69, 71, 
76, 78, 81, 84, 87, 89. 


matriz: 
maz_recursion: 
member: 
min: 

MIN: 


Mr 


nat_io: 


Tl Tees 


Predecessor: 


29, 47. 
28, 44, 71, 81. 
27, 42, 43, 
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Queue: 36-37, 62, 64, 66, 80, 83, 90. 

R_QUEUVE: 81. 

R_Queue: 39, 71, 74, 76, 78, 80, 84. 

ReadyList: 18, 25, 27, 36-37, 39, 43, 
62, 66, 71, 90. 

Readylist1: 18. 

ReadyQueue: 18-22, 25, 53-54, 62. 

Rec: 34, 36, 57, 62. 

recursion_level: 23, 64, 71-72, 79, 81, 
84, 86. 


Recursion_Level: 


§93 


78. 
64, 84, 86. 
RecursionLevel: 19-20, 78. 
ReInitializeMatriz: 52, 53. 
Rewind: 48, 53, 62, 66, 87. 
rewind: 45. 
Sar: 34, 57. 
S_ LEVEL: 34, 57. 
S_Iist: 39, 71, 74, 80-81, 86-87. 
SaveAllScheduleRecords: 30, 45. 
SaveScheduleRecord: 45. 
Sch: 38, 70. 
Sched: 80, 83, 90. 
SchedPrims: 12. 
schedtools: 12. 
schedtools.adb: 
schedtools.ads: 12. 
Schedule: 25, 53-54. 
ScheduleList: 21, 25, 28-30, 38-39, 
44-45, 47, 70-71, 90. 
ScheduleList1: 21. 
ScheduleRecord: 21,34, 45,47, 57, 70, 90. 
ScheduleRecordHeading: 44, 71. 
set: 62, 88. 
45, 47-49, 62. 
sr: 49-50. 
StartTime: 41, 48-50, 57. 
StepID: 41, 49-50, 57, 70. 
StepId: 48-49, 62, 68, 87. 
StepLevel: 48, 57. 
Steplist: 25, 53. 
StepRecord: 16-22, 36, 38, 49, 53, 62, 
66, 70, 90. 


recursionievel: 


12. 


S1ze: 
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StepRecordHeading: 42-43. 


StronglyFeasible: 37, 53, 66, 71. 


Success: 84-85. 
Successors: 49, 62, 87. 
system dependencies: 91. 
temp: 66, 69-70. 
temp1: ‘70. 

test_to._pkg: 12, 71. 
meziiO: 12. 

Time: 41, 51. 
Time_Of: 49. 

TIME1: 34, 57. 
TIME2: 34, 57. 
TotSize: 74-75. 
tracking: 56. 

true: 64, 72. 

TRUE: 41, 70, 90. 
True: 53, 66, 71. 
UpdateCurrent: 62, 87. 
Use: 12. 

Used: 56. 

ustring: 34, 57. 
Ustring: 45, 49. 
Ustrings: 12. 
ustrings: 12. 
WorkHours: 41. 
yrcap: 49. 


D9 


INDEX 


NAMES OF THE SECTIONS APPENDIX A 893 


(Compute myopic number 67) Used in section 66. 

(Convert calendar times to absolute times 50) Used in section 49. 

(Convert ScheduleList to CalendarList 48) Used in section 47. 

(Copy linked lists and the designer matrix onto the stack 80) Used in section 71. 

( Debug code set 1 68 ) Used in section 66. 

( Debug code set 2 69) Used in section 66. 

(Delete appropriate R_Queue record 78) Used in section 71. 

{Do diagnostics 81 ) Used in section 80. 

(Free up local linked lists 83) Used in section 71. 

{Get appropriate R_Queue record 76) Used in section 71. 

( Get next record 63 ) Used in section 62. 

(Get output file name 46) Used in section 45. 

(Initialize the lists for intensive list-processing 54) Used in section 53. 

(Instantiate generics 16, 17, 18, 19, 20, 21,22) Used in section 12. 

(Move record from input list to ready list 64) Used in section 62. 

(Package boiler-plate 12) Used in section 10. 

{Procedures and Tasks in schedtools 42, 43, 44, 45, 47, 49, 52, 53, 57, 58, 62, 66, 70, 71) 
Used in section 12. 

{Reset InDegree 87 ) Used in sections 84 and 86. 

(Restore F_Sched 89 ) Used in section 83. 

(Restore R.Queue 84) Used in section 83. 

( Restore S_List 86 ) Used in section 83. 

(Specification of procedures visible from schedtools 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 
39 ) Used in section 12. 

( Specification of types and variables visible from schedtools 23, 24, 25, 33, 59) 
Used in section 12. 

(Update backtrack counter 74) Used in section 71. 

( Update recursion stuff again 79) Used in section 71. 

( Update some recursion stuff 72 ) Used in section 71. 

( Variables local to BranchAndBound 73, 75, 77, 82, 85, 88,90) Used in section 71. 

( Variables local to CreateNewStepList 51) Used in section 49. 

( Variables local to schedtools 41,55,56) Used in section 12. 
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§ APPENDIX B INTRODUCTION 


1. Introduction. Here is the Ada code for utilites used in Salah Badr’s scheduler 
program. His program was written by him May 25, 1993. It was translated by John Evans 
of NRaD into Donald Knuth’s WEB format for literate programming. To compile and link 
the code in its present format you will need the Ada version of the WEB tool. 

It is available on-line via the world-wide-web at URL: 


http://white.nosc.mil/~evansjr/literate/ 


2. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
see the paper Literate Programming, by Donald Knuth in The Computer Journal, Vol 27, 
No. 2, 1984; or the book Weaving a Program: Literate Programming in WEB by Wayne 
Sewell, Van Nostrand Reinhold, 1989. Another good source of information is the Usenet 
group comp.programming.literate. It has information on new tools and Frequently Asked 


Questions (FAQs). 


3. Since the original AWEB package was written for Ada ’83, it does not properly format 
new Ada ’95 keywords protected and private . We remedy using the web format 
commands below. 


format protected = procedure 
format private = procedure 


4. Asa way of explanation, each “Module” withing angle brackets (< >) is expanded 
somewhere further down in the document. The trailing number you see within the brackets 
is where you can find this expansion. This provides a type of PDL (program descriptor 
language) for your program and greatly aids modularity and readability. It is also a highly 
effective method of top-down programming. The first module here is expanded further 
down, and contains most of the structure in standard Ada packages. 


( Package boiler-plate 5) 
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5. Schedule Primitives. 


( Package boiler-plate 5) = 
output to file schedprims.ads 


with generic_set_pkg; 
with generic_map_pkg; 
with tezt_io; 
use tezt_io; 
with test_1o_pkg; 
use test_to_pkg; 
with Ada.Calendar; 
use Ada.calendar ; 
with capability ; 
use capability ; 
with ustrings ; 
use ustrings ; 
package schedprims is 
(Instantiate generics 9) 
(Specification of types and variables visible from schedprims 6) 
(Specification of procedures visible from schedprims 11) 
end schedprims ; 


output to file schedprims.adb 


with test_io_pkg; 
with calyr; 
use calyr; 
package body schedprims is 
( Variables local to schedprims 25 ) 
(Procedures and Tasks in schedprims 26) 
end schedprims ; 


This code is used in section 4. 
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6. I make this a tagged record so that I can extend it in other packages that inherit this 
one. 


(Specification of types and variables visible from schedprims 6) = 
type StepRecord is tagged record StepID : natural; 
Deadline : natural — 0; 

Priortty : natural; 
EstimatedDuration : natural — 0; 
EarliestStartTime : natural — 0; 
EzpLevel : cap_map.map; 
Successors : nat_set.set; 
Predecessors : nat_set.set; 
InDegree : natural — 0; 
RecursionLevel : natural — 0; 
end record; 
See also sections 7 and 8. 


This code is used in section 5. 


ee 


(Specification of types and variables visible from schedprims 6) += 
type ScheduleRecord is 

record 
StepID : natural; 
StartTime : natural; 
FinishTime : natural; 
Designer : ustring; 
StepLevel : cap_map.map; 
RecursionLevel : natural — 0; 

end record; 


8. 


(Specification of types and variables visible from schedprims 6) += 
type CalendarRecord is 

record 
StepID : natural; 
StartTime : Time; 
FinishTime : Time; 
Designer : ustring; 
StepLevel : cap_map .map; 

end record; 


61 


SCHEDULE PRIMITIVES APPENDIX B- 89 


9. Here is the specification for generics. 
(Instantiate generics 9) = 
package nat_set is new generic_set_pkg (natural , 5); 
{ Instantiate instances of the generic map package. } 
package nat_map is new generic_map_pkg(key => natural, result > natural); 
package set_map is new generic_map_pkg(key => natural, result => nat_set.set ); 
package ezp_map is new generic_map_pkg(key => natural, result = EzpertiseLevel); 
See also section 10. 


This code is used in section 5. 


10. Here is the specification for generics. 


(Instantiate generics 9) += 
package nat_io is new integer_io(natural ); 
procedure put_set is new nat_set.generic_put; 
procedure get_set is new nat_set.genericinput ; 
procedure getf_set is new nat_set.generic_file_input ; 
package enu_io is new tezt_io.ENUMERATION_IO( EzpertiseLevel ); 


11. This function is used to compare the ID of StepRecords 


( Specification of procedures visible from schedprims 11) = 
function CompareID(L1,L2 : StepRecord )return Boolean; 
See also sections 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, and 23. 


This code is used in section 5. 


12. This function is used to compare the ID of StepRecords 


(Specification of procedures visible from schedprims 11) += 
function IsEqual(L1,L2 : StepRecord )return Boolean; 


13. This function is used to compare the Deadline of StepRecords 


( Specification of procedures visible from schedprims 11) += 
function CompareDeadLine(L1,L2 : StepRecord )return Boolean; 


14. This function is used to compare the Recursion of StepRecords 


( Specification of procedures visible from schedprims 11) += 
function CompareRecursionLevel(L1,L2 : StepRecord )return Boolean; 


15. This function is used to compare the StartTime of StepRecords 


(Specification of procedures visible from schedprims 11) += 
function CompareStartTime(L1,L2 : ScheduleRecord )return Boolean; 
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16. This function is used to compare the StartTime of StepRecords 


(Specification of procedures visible from schedprims 11) += 
function CompareStartTime({L1,L2 : CalendarRecord )return Boolean; 


17. Printing a atep heading line before printing any records. 


(Specification of procedures visible from schedprims 11) += 
procedure Step RecordHeading ; 


18. Display a record given its LOCATION in the list. 


(Specification of procedures visible from schedprims 11) += 
procedure DisplayStepRecord (rec : in StepRecord ); 


19. Printing a schedule heading line before printing any record. 


(Specification of procedures visible from schedprims 11) += 
procedure Schedule RecordHeading ; 


20. Printing a schedule heading line before printing any record. 


(Specification of procedures visible from schedprims 11) += 
procedure CalendarRecordHeading ; 


21. display a record given its LOCATION in the list. 


(Specification of procedures visible from schedprims 11) += 
procedure DisplayScheduleRecord ( Current : in ScheduleRecord ); 


22. 


(Specification of procedures visible from schedprims 11) += 
procedure SaveScheduleRecord (Current : in ScheduleRecord ; fd : file_type ); 


23. display a record given its LOCATION in the list. 


( Specification of procedures visible from schedprims 11) += 
procedure DisplayCalendarRecord { Current : in CalendarRecord ); 


63 
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24. Schedule Primitives Body. 


20. 


( Variables local to schedprims 25) = 
debug : boolean < false; 
debug2 : boolean < false; 


This code is used in section 5. 


26. 


(Procedures and Tasks in schedprims 26) = 
function ComparelD(L1,L2 : StepRecord )return Boolean is 
begin 
if L1.StepId < L2.StepId then 
return True; 
else 
return False; 
end if; 
end ComparelD ; 
See also sections 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, and 38. 


This code is used in section 5. 


27. Stepld’s are suppose to be unique. 


(Procedures and Tasks in schedprims 26) += 
function IsEqual(L1,L2 : StepRecord )return Boolean is 
begin 
if debug2 then 
put("L1.StepId,=,"); nat_io.put(L1.StepId,1); put("-.u"); 
put("L2.StepId,=,,"); nat_to.put(L2.StepId,1); put_line(".."); 
end if; 
if L1.StepId = L2.StepId then 
return True; 
else 
return False; 
end if; 
end I/sEqual; 
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28. 


(Procedures and Tasks in schedprims 26) += 
function CompareDeadline(L1,L2 : StepRecord)return Boolean is 
answer : boolean ; 
A,B : natural; 
begin 
A+«+ Ll1.Deadline; B — L2.Deadline; 
if debug then 
put("Li.Deadline,=,"); nat_io.put(A); put_line("..,"); 
put("L2.Deadline,,=,"); nat_io.put(B); put_line("..,"); 
end if; 
if A < B then 
answer < True; 
else 
answer <— false; 
end if; 
if debug then 
put("CompareDeadline>,," ); 
if answer then 
nat_io.put(A); put("Yis LESS,then,,"); nat_io.put(B); put_line("..,"); 
else 
nat_to.put(A); put("yis NOT LESS,then,,"); nat_io.put(B); put_line(".\"); 
end if; , 
end if; 
return answer; 
end CompareDeadline ; 
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29. 


(Procedures and Tasks in schedprims 26) += 
function CompareRecursionLevel(L1,L2 : StepRecord )return Boolean is 
answer : boolean; 
A,B: natural; 
begin 
A<—I1.RecursionLevel; B — L2.RecursionLevel; 
if A < B then 
answer <— True; 
else 
answer <— false; 
end if; 
if debug then 
put("CompareRecursionLevel>,," ); 
if answer then 
nat_io.put(A); put("\Yis, LESS then,,"); natio.put(B); put_line("..,"); 
else 
nat_io.put(A); put("\Yis NOT LESS then"); nat_io.put(B); put_line("..."); 
end if; 
end if; 
return answer; 
end ComparefecursionLevel ; 


30. 


(Procedures and Tasks in schedprims 26) += 
function CompareStartTime(L1,L2 : ScheduleRecord )return Boolean is 
begin 
if L1.StartTime < L2.StartTime then 
return True; 
else 
return False; 
end if; 


end CompareStartTime; 
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31. 


(Procedures and Tasks in schedprims 26) += 
function CompareStartTime(L1,L2 : CalendarRecord )return Boolean is 
begin 
if L1.StartTime < L2.StartTime then 
return True; 
else 
return False ; 
end if; 


end CompareStart Time; 


32. Printing a step record heading line before printing any records. 


(Procedures and Tasks in schedprims 26) += 
procedure StepRecordHeading is 
begin 
tezt_to put ( "STEP_ID,,,DEADLINE,,,PRIORITY,,, ,PREDECE, ,),,SUCCESS,,,E_LEVEL,,,IN_DEGREE 'B; 
tezt_io.put(" 1, ,RECURSION"); tezt_to.new_line; 
tezt_to .put(" [oes Ui = a aN ee Hei a oe (EET Ol secre eae eae Si Hi - ae DB; 
Peay nije - >> o "): tert_to.new_line; 


end StepRecordHeading ; 


33. Display a record given its LOCATION in the list. 


(Procedures and Tasks in schedprims 26) += 

procedure DisplayStepRecord (rec : in StepRecord ) 1s 

begin 
tert_io.set_col(4); test_io_pkg.put(rec.Stepld); tezt_to.set_col(12); 
test_io_pkg .put(rec.Deadline); tezt_io.set_col(23); test_io_pkg .put(rec.Priority ); 
tezt_io.set_col(31); put_set(rec.Predecessors ); tezt_io.set_col(41); 
put_set(rec.Successors ); tezt_io.set_col(49); print_capabilities (rec.EzpLevel ); 
tezt_io.set_col(61); test_io_pkg.put(rec.InDegree); tezt_io.set_col(72); 
test_to_pkg .put(rec.RecursionLevel ); tezt_to.new_line; 

end DisplayStepRecord ; 


34. Printing a schedule heading line before printing any record. 


(Procedures and Tasks in schedprims 26) += 
procedure ScheduleRecordHeading is 
begin 
tezt_io.put ( "TD, START_TIME, FINISH_TIME,,,S_ LEVEL uuu uuUuUuUuuDEVEOPER" He 
tezt_1o .new_line ; 


Peco ees ote ae a oe Ciel s eee WUUUUUUUUULU mas 
tezt_io.new_line; 


end ScheduleRecordHeading ; 
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35. Printing a schedule heading line before printing any record. 


(Procedures and Tasks in schedprims 26) += 
procedure CalendarRecordHeading 1s 
begin 
tert_io.put("ID,START_TIME, FINISH_TIME)$_LEVELy uuu DEVEOPER" ); 
text_io .new_line; 


_ ee a a ee eee ee . 
text_to put(' u u uuu UUUUUUUUULIL ‘ ); 
tezt_io .new_line; 


end CalendarRecordHeading ; 


36. Display a record given its LOCATION in the list. 


(Procedures and Tasks in schedprims 26) += 

procedure DisplayScheduleRecord (Current : in ScheduleRecord ) is 

begin 
tert_io.set_col(1); nat_io.put(Current.StepID,1); tezt_to.set_col(10); 
nat_io.put( Current .StartTime,1); tezt_io.set_col(20); 
nat_io.put(Current.FinishTime,1); text_io.set_col(35); 
print_capabilities (Current .StepLevel); tezt_io.put("\y"); 
text_io .put(S(Current.Designer)); text_io.new_line; 


end DisplayScheduleRecord ; 


37. Display a record given its LOCATION in the list. 


(Procedures and Tasks in schedprims 26) += 

procedure SaveScheduleRecord (Current : in ScheduleRecord ; fd : filetype ) is 
package Nat_Io is new Integer_Io( Natural); 
use Nat_Io; . 

begin 
text_to.set_col(fd,1); put(fd, Current.StepID,1); text_io.set_col(fd, 10); 
put(fd, Current.StartTime,1); text_to.set_col (fd, 20); 
put(fd, Current.FinishTime,1); tezt_io.set_col(fd , 35); 
print_capabilities (fd, Current .StepLevel); put(fd,"\"); put(fd, Current.Designer); 
text_io .new_line(fd ); 


end SaveScheduleRecord ; 
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38. Display a record given its LOCATION in the list. 


(Procedures and Tasks in schedprims 26) += 

procedure DisplayCalendarRecord (Current : in CalendarRecord ) is 

begin 
tezt_io.set_col(2); test_to_pkg.put(Current.StepID); tezt_io.set_col(10); 
calyr .print_date( Current .StartTime); tezt_to.set_col(25); 
calyr .print_date( Current .FinishTime ); tezt_io.set_col(40); 
print_capabilities (Current .StepLevel); tezt_io.put(" 4"); 
tezt_io.put(S(Current.Designer)); tezt_io.new_line ; 

end Display CalendarRecord ; 
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39. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


40. RCS Keywords. 


$RCSfile: schedprims.aweb,v 
$Revision: 1.4 
$Date: 1997/08/22 23:14:45 
$Author: evansjr 
$Id: schedprims.aweb,v 1.4 1997/08/22 23:14:45 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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41. Index. Here is a cross-reference table for the MAIN program. All modules in which 
an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


Ada: 5. FinishTime: 7-8, 36-38. 
answer: 28-29. generic_file.input: 10. 
boolean: 25, 28-29. generic_input: 10. 
Boolean: 11-16, 26-31. generic_map_pkg: 5, 9. 
Calendar: 5. generic_put: 10. 
calendar: 5. generic_set_pkg: 5, 9. 
CalendarRecord: 8, 16, 23, 31, 38. get_set: 10. 
CalendarRecordHeading: 20, 35. getf.set: 10. 

calyr: 5, 38. ID: 11-12. 
cap._map: 6-8. InDegree: 6, 33. 
capability: 5. integer_1o: 10. 
CompareDeadline: 28. Integer_Io: 37. 
CompareDeadLine: 13. IsEqual: 12, 27. 
CompareID: 11, 26. key: 9. 
CompareRecursionLevel: 14, 29. L1: 11-16, 26-31. 
CompareStartTime: 15, 16, 30, 31. L2: 11-16, 26-31. 
Current: 21-23, 36-38. map: 6-8. 
Deadline: 6, 13, 28, 33. nat.io: 10, 27-29, 36. 
debug: 25, 28-29. Nat_Io: 37. 

debug2: 25, 27. nat_map: Q. 
Designer: 7-8, 36-38. nat_set: 6, 9, 10. 
DisplayCalendarRecord: 23, 38. natural: 6-10, 28-29. 
DisplayScheduleRecord: 21, 36. Natural: 37. 
DisplayStepRecord: 18, 33. new_line: 32-38. 
EarliestStartTime: 6. Predecessors: 6, 33. 
enu_to: 10. print_capabilities: 33, 36-38. 
ENUMERATIONL_IO: 10. print_date: 38. 
EstimatedDuration: 6. Priority: 6, 33. 
ezp_map: 9. private: 3. 
EzpertiseLevel: 9-10. procedure: 3. 
EzpLevel: 6, 33. protected: 3. 
False: 26-27, 30-31. put: 27-29, 32-38. 
false: 25, 28-29. putline: 27-29. 

fas 22, 37. put_set: 10, 33. 
filetype: 22, 37. rec: 18, 33. 
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Recursion: 14. 

RecursionLevel: 6-7, 29, 33. 

result: 9. 

SaveScheduleRecord: 22, 37. 
schedprims: 5. 

schedprims.adb: 5. 
schedprims.ads: 0. 
ScheduleRecord: 7, 15, 21-22, 30, 36-37. 
ScheduleRecordHeading: 19, 34. 

set: 6, 9. 

set.col: 33, 36-38. 

set_map: 9Q. 

StartTime: 7-8, 15-16, 30-31, 36-38. 
StepID: 6-8, 36-38. 

StepId: 26-27, 33. 

StepLevel: 7-8, 36-38. 

StepRecord: 6, 11-14, 18, 26-29, 33. 
StepRecordHeading: 17, 32. 
StepRecords: 11-16. 

Successors: 6, 33. 

system dependencies: 39. 

tagged: 6. 

test_io_pkg: 5, 33, 38. 

tezt_io: 5, 10, 32-38. 


Time: 8. 
True: 26-31. 
ustring: 7-8. 


ustrings: 95. 
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§41 APPENDIX B NAMES OF THE SECTIONS 


(Instantiate generics 9,10) Used in section 5. 

(Package boiler-plate 5) Used in section 4. 

(Procedures and Tasks in schedprims 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38) 
Used in section 5. 

(Specification of procedures visible from schedprims 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
22,23) Used in section 5. 

(Specification of types and variables visible from schedprims 6,7,8) Used in section 5. 

(Variables local to schedprims 25) Used in section 5. 
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§ APPENDIX C INTRODUCTION 


1. Introduction. Here is the Ada code for Salah Badr’s scheduler program. It was 
written by him May 25, 1993. Here it has been translated to Donald Knuth’s WEB format 
for literate programming. To compile and link the code in its present format you will need 
the Ada version of the WEB tool. 

It is available on-line via the world-wide-web at URL: 


http:/ /white.nosc.mil/~evansjr/literate/ 


2. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
see the paper Literate Programming, by Donald Knuth in The Computer Journal, Vol 27, 
No. 2, 1984; or the book Weaving a Program: Literate Programming in WEB by Wayne 
Sewell, Van Nostrand Reinhold, 1989. Another good source of information is the Usenet 
group comp.programming.literate. It has information on new tools and Frequently Asked 


Questions (FAQs). 


3. The program consists of several packages that are declared right now; each of these 
packages and either the specification and the body of the packages are sent to a separate 
file. The main program itself is declared later. (Since the original AWEB package was 
written for Ada ’83, it does not properly format new Ada ’95 keywords protected and 
private . We remedy using the web format commands below. 


format protected = procedure 
format private = procedure 


4. Asa way of explanation, each “Module” within angle brackets (< >) is expanded 
somewhere further down in the document. The trailing number you see within the brackets 
is where you can find this expansion. This provides a type of PDL (program descriptor 
language) for your program and greatly aids modularity and readability. It is also a highly 
effective method of top-down programming. 
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5. Main driver. This is the main routine that starts everything. 
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6. (Note: The following format is used by all the packages. We write the top-level code, 
in macro-level descriptions, and it gets expanded into code further down. This way you 
can write small, easily understood modules. It also lets you declare and describe variables 
and types where you need them.) 


output to file main.adb 


pragma suppress (all_checks ); 
with Sched Tools ; 
with scheduler; 
use scheduler; 
with tezt_io; 
use tezt_to; 
with capability ; 
use capability ; 
with ustrings; 
use ustrings ; 
procedure main is (Instantiate generic packages 8 )( Variables local to main 9) 
begin 
loop 
begin 
SCHEDULER_MENU; get(SELECTOR); skip_line; 
case SELECTOR is 


when 1 > 
(Create new step list 10) 
when 2 > 
(Read in developer list 12) 
when 3 > | 
(Schedule steps according to their deadlines 14) 
when 4 => 
(Print all steps in the ready queue 15) 
when 5 > 
(Print all step records 19) 
when 6 > 
(Print final schedule 16 ) 
when 7 > 
(Save final schedule 17) 
when 8 > 
(Print calendar schedule 18 ) 
when 9 > 


(Exit the program to the system 20 ) 
when others => 
(Exception handling for selector case 21 ) 
end case; 
exception 


ie 


MAIN DRIVER 


when storage_error => 


APPENDIX C 6 


put_hne("You,have,ja,storage,error."); 


put("Your,level,of,recursion,i Sy") 


put_line("..,"); 
when Data_Error => 


’ 


nat_to .put(recursion_level); 


put_line("Value,jent ered, notin, proper,range.,,,Pleas etry again."); 


New_line; Skip_Line; 


when SchedTools .NoFeasibleScheduleFound => 


put_line("Unable,,to, find, feasible, schedule. uuNeed,to,increase,,laxity. 'f 


New_line ; 
when NoDevelopers => 


put_line("No,developers,to,,schedule,t asks,with.,, Please, try,again. Bp; 


New_line; 
end; 
end loop; 
end main; 


7. As a way of explanation, each “Module” withing angle brackets (< >) is expanded 
somewhere further down in the document. The trailing number you see within the brackets 
is where you can find this expansion. This provides a type of PDL (program descriptor 
language) for your program and greatly aids modularity and readability. It is also a highly 
effective method of top-down programming. The first module here is expanded further 
down, and contains most of the structure in standard Ada packages. 


{ Package boiler-plate 22) 


ae 


(Instantiate generic packages 8) = 
package nat_io is new integer_to(natural ); 
use nat_io; 


This code is used in section 6. 


9. 


( Variables local to main 9) = 
type selector_type is new natural range 1 .. 9; 
selector : selector_type — 1: 


package sel_io is new integer_io (selector_type ) 
use sel_io; 


See also sections 11 and 13. 


This code is used in section 6. 
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10. This routine has been modified to read in a file and build up the linked list of “steps.” 
(Create new step list 10) = 
if num_developers > 0 then 
MakeNewStepList(num_developers ); 
else 
raise NoDevelopers ; 
end if; 


This code is used in section 6. 


11. 


( Variables local to main 9) += 
NoDevelopers : exception; 


12. 


(Read in developer list 12) = 
put_line("Please,enter, developer, filename: ,,"); 
get_line(infile ); 
get_developers(S(infile)); num_developers — get_num_developers ; 


This code is used in section 6. 


13. 

( Variables local to main 9) += 
infile : ustring; 
num_developers : natural — 0; 


14. 


(Schedule steps according to their deadlines 14) = 
Put_line ( "Scheduling steps,according, to,their,deadlines. 
MakeDeadlineFirstSchedule(maz_recursion , num_developers ); 


- 
= 
ee” 
ze 


This code is used in section 6. 


15. 


(Print all steps in the ready queue 15) = 
PrintReady Queue ; 


This code is used in section 6. 


16. 


(Print final schedule 16) = 
PrintFinalSchedule; 


This code is used in section 6. 


81 


MAIN DRIVER 


17. 


(Save final schedule 17) = 
SaveFinalSchedule ; 


This code is used in section 6. 


18. 


(Print calendar schedule 18 ) = 
PrintCalendarSchedule ; 


This code is used in section 6. 


19. 


(Print all step records 19) = 
new_line; PrintStepList; 


This code is used in section 6. 


20. 


(Exit the program to the system 20) = 


APPENDIX C 817 


put("Maximum,recursion,level,is,,"); nat_io.put(maz_recursion ); put_line(".."); 
put("Current,,recursion,,level,,is,,"); nat_io.put(recursion_level); put_line("..,"); 
put("thank,youy.... Bye,...Bye"); new_line; exit; 


This code is used in section 6. 


Zu: 


(Exception handling for selector case 21) = 


put("|,BAD,,CHOICE.,,PLEASE,,TRY,AGAIN" ); new_line; 


This code is used in section 6. 
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22. Scheduler specification. 


(Package boiler-plate 22) = 
output to file scheduler.ads 


with generic_set_pkg; 

with generic_map_pkgq; 

with generic_list; 

with schedprims ; 

use schedprims ; 

with schedtools ; 

use schedtools ; 

with TEXT-_IO; 

use TEXT_IO; 

with test_io_pkg; 

use test_10_pkg; 

package scheduler is 
(Specification of types and variables visible from scheduler 23) 
(Specification of procedures visible from scheduler 24) 

end scheduler; 


output to file scheduler.adb 


with unchecked_deallocation ; 
package body scheduler is 

(Procedures and Tasks in scheduler 33) 
end scheduler; 


This code is used in section 7. 


23. Here are variables global to the recursion. 


(Specification of types and variables visible from scheduler 23) = 
recurston_level : natural — 0; 
maz_recursion : natural < 0; 


This code is used in section 22. 


24. Creating new step. 


(Specification of procedures visible from scheduler 24) = 
Procedure MakeNewStepList(num_developers : natural ); 
See also sections 25, 26, 27, 28, 29, 30, and 31. 


This code is used in section 22. 


25. Creating new step. 


(Specification of procedures visible from scheduler 24) += 
Procedure MakeDeadlineFirstSchedule(maz_recursion : in out natural; 
num_developers : natural ); 
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26. 


(Specification of procedures visible from scheduler 24) += 


procedure SCHEDULER._MENU ; 


27. 


(Specification of procedures visible from scheduler 24) += 
procedure PrintReady Queue ; 


28. 

(Specification of procedures visible from scheduler 24) += 
procedure PrintFinalSchedule ; 

29. 

(Specification of procedures visible from scheduler 24) += 


procedure SaveFinalSchedule ; 


30. 


(Specification of procedures visible from scheduler 24) += 
procedure PrintCalendarSchedule ; 


31. 


(Specification of procedures visible from scheduler 24) += 
procedure PrintStepList; 
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32. Scheduler Body. 


33. Creating new step. 


(Procedures and Tasks in scheduler 33) = 
Procedure MakeNewStepList(num_developers : natural) is 
begin 
CreateNewStepList ( StepList ); 
end MakeNewStepList ; 
See also sections 34, 35, 36, 37, 38, 39, and 40. 


This code is used in section 22. 


34. 


(Procedures and Tasks in scheduler 33) += 
Procedure MakeDeadLineFirstSchedule(maz_recursion : in out natural; 
num_developers : natural) is 
begin 
put_line("Start,of, ,CreateDeadlineFirstSchedule."); 
Create DeadlineFirstSchedule(maz_recursion , num_developers ); 


put_line("End,,of ,CreateDeadlineFirstSchedule."); 
end MakeDeadline FirstSchedule ; 
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35. DISPLAY THE MAIN MENU. 


(Procedures and Tasks in scheduler 33) += 
procedure SCHEDULER_MENU is 


begin 
new_line; set_col(25); put("MAIN,MENU"); new_line; set_col(25); 
a "); new_line (2); 
set_col(5); put("([1] Read,in, step list"); 
new_line; 
set_col(5); put("[2],,Read,,in,developer,list" ); 
new_line; 
set_col(5); put("([3] yschedule, steps,using, BranchAndBound"); 
new_line; 
set_col(5); put("[4] .Print yready,queue" ); 
new_line; 
set_col(5); put("(5] yPrintstep,,list" ); 
new_line; 
set_col(5); put("(6],Print,final,schedule"); 
new_line; 
set_col(5); put("(7] \Save,final,schedule" ); 
new_line; 
set_col(5); put("(8] \Print,,Calendar,,schedule" ); 
new_line; 


set_col(5); put("[9] ,Quit"); new_line(3); set_col(5); 
put ("Ent er, the, numberof your jchoicey: yy" i 


end SCHEDULER_MENU; 


36. 


(Procedures and Tasks in scheduler 33) += 
procedure PrintFinalSchedule is 
begin 
PrintAllSchedule Records ( Schedule ); 
end PrintFinalSchedule ; 


37. 


(Procedures and Tasks in scheduler 33) += 
procedure SaveFinalSchedule is 
begin 
SaveAllSchedule Records ( Schedule ); 
end SaveFinalSchedule ; 


86 


§38 § APPENDIX C SCHEDULER BODY 


38. 


(Procedures and Tasks in scheduler 33) += 
procedure PrintCalendarSchedule is 
begin 

PrintAllCalendarRecords ( Schedule ); 
end PrintCalendarSchedule; 


39. 


(Procedures and Tasks in scheduler 33) += 
procedure PrintReadyQueue is 
begin 
PrintAllStep Records ( Ready Queue ); 
end PrintReady Queue ; 


40. 


(Procedures and Tasks in scheduler 33) += 
procedure PrintStepList is 
begin 
PrintAllStepRecords ( StepList ); 
end PrintStepList; 
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41. Continuous Time to Calendar Time Translator. The purpose of this routine 
is to take the output of the scheduler and translate the continuous time fields (Start Time 
and FinishTime ) to calendar dates. 


output to file contocal.adb 


pragma suppress (all checks ); 

with tezt_io; 

use tezt_io; 

with getopt; 

use getopt; 

with Usirings; 

use Ustrings; 

with Ada.Calendar; 

use Ada.Calendar; 

with calyr; 

use calyr; 

with capability ; 

use capability ; 

procedure ConToCal is 
( Variables local to ConToCal 45) 
package bool.io is new enumeration_io (boolean ); 
use boolio; 

begin 
(Get parameters to ConToCal 43) 
(Open files 51) 
(Iterate through input file 53) end ConToCal; 


42. The command syntax is as follows: 


contocal [-nrad < boolean >] [-start < startdate >| infile outfile 


43. The-nrad option is by default false, but when set to true will create a schedule that 
respects NRaD off-fridays. An example invocation coule be: 


contocal -nrad true -start 07/03/97+00 infile outfile 


If no start is given then the default is the same as the example. 
(Get parameters to ConToCal 43) = 

(Get nrad 44) 

(Get start date 46 ) 

(Get input file 48) 

(Get output file 50) 


This code is used in section 41. 
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44. 


(Get nrad 44) = 
if option_present(U("-nrad")) then 
get_option(U("-nrad"), param ); get(S(param ), nrad , Last); 
else 
nrad <— false; 
end if; 


This code is used in section 43. 


45. 
( Variables local to ConToCal 45) = 


param : Ustring; 
Last : positive ; 
nrad : boolean; 
See also sections 47, 49, 52, 55, 56, and 58. 


This code is used in section 41. 


46. 


(Get start date 46) = 
if option_present(U("-start")) then 
get_option(U("-start"), param); StartDate — get_date(param); 
else 
StartDate — Time_Of (1997, 7,3,0.0); 
end if; 


This code is used in section 43. 


47. 


( Variables local to ConToCal 45) += 
StartDate : Time; 


48. 
(Get input file 48) = 
if name_present(1) then 
get_name(infile , 1); 
else 
raise nofilename; 
end if; 


This code is used in section 43. 
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49. 
(Variables local to ConToCal 45) += 


nofilename : exception; 
infile , outfile : Ustring; 


50. 


(Get output file 50) = 
if name_present(2) then 
get_name (outfile , 2); 
else 
raise nofilename ; 
end if; 


This code is used in section 43. 


51. 
(Open files 51) = 
open(data_file,in_file, S(infile)); create(data2_file, out_file, S(outfile)); 


This code is used in section 41. 


52. 


( Variables local to ConToCal 45) += 
data_file , data2_file : file_type; 


53. 


(Iterate through input file 53) = 
while —~End_Of_File(data_file) loop 
(Read in record 54) 
(Do time translations 57) 
(Write out new record 59) 
end loop; 


This code is used in section 41. 
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§54 APPENDIX C CONTINUOUS TIME TO CALENDAR TIME TRANSLATOR 
54. A typical input file would look like the following: 


3 HIGH Hl 0 3 

2 MEDIUM M1 0 4 

V LOW Ll 0 6 

“ HIGH H1 3 13 
Oo MEDIUM M1 4 12 
6 LOW Ll 6 10 
8 MEDIUM M1 2 14 
a LOW bl 10 15 
7 HIGH H1 13 19 
10 MEDIUM M1 14 24 


The second to last column is the start time and the last column is the end time. 


(Read in record 54) = 
kntr — kntr +1; put("Reading,in,record,,"); put(knir); put_line("..,"); 
get(data_file, stepid); get(data_file, Start); get(data_file, Finish); 
get_capability (data_file, EcpLevel); get_line(data_file , Developer ); 


This code is used in section 53. 


55. 


( Variables local to ConToCal 45) += 
type EzpertiseLevel is (low, medium, high); 
stepid : natural; 
EzpLevel : cap._map.map; 
Developer : ustring; 
start, finish : natural; 
kntr : natural <— 0; 


56. 
( Variables local to ConToCal 45) += 


package ezp_io is new enumeration_io(EzpertiseLevel ); 
use ezp_10; 

package nat_io is new integer_io (natural); 

use nat_io; 


57. 


(Do time translations 57) = 
dur — ConvertHoursTo Duration (Start); 
Start Time — DurationToCalendar Time (StartDate, dailyhours , dur, NRaD); 
dur — ConvertHours To Duration (Finish); 
FinishTime — DurationToCalendarTime( StartDate , dailyhours , dur, NRaD ); 


This code is used in section 53. 


on 
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08. 
( Variables local to ConToCal 45) += 


dur : Duration; 

StartTime, FinishTime : Time; 

dailyhours : WorkHours — (ConvertHours ToDuration(8), ConvertHoursToDuration(8), 
ConvertHours ToDuration(8), ConvertHoursToDuration (8), 
ConvertHours ToDuration(8)); 


59. 


(Write out new record 59) = 
set_col(data2_file,1); put(data2_file, stepid,1); set_col(data2_file 10); 
print_date(data2_file, StartTime); set_col(data2_file , 25); 
print_date(data2_file, FintishTime ); set_col(data2_file , 40); 
print_capabilities (data2_file, EzpLevel); put(data2_file,"\,"); 
put(data2_file, Developer); new_line(data2_file ); 


This code is used in section 53. 
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60. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


61. RCS Keywords. 


$RCSfile: main.aweb,v 
$Revision: 1.5 
$Date: 1997/08/22 23:14:45 
$Author: evansjr 
$Id: main.aweb,v 1.5 1997/08/22 23:14:45 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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62. Index. Here is a cross-reference table for the MAIN program. All modules in which 
an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


Ada: 41. get: 6, 44, 54. 

all checks: 6, 41. get_capability: 54. 

booLio: 41. getdate: 46. 

boolean: 41, 45. get_developers: 12. 

Calendar: 41. getline: 12, 54. 

calyr: A1. get_name: 48, 50. 

cap_map: 55. get_num_developers: 12. 
capability: 6, 41. get_option: 44, 46. 

ConToCal: 41. getopt: 41. 

contocal.adb: 41. high: 55. 
ConvertHoursToDuration: 57-58. in_file: 51. 

create: 51. infile: 12-13, 48-49, 51. 
CreateDeadlineFirstSchedule: 34. integer_to: 8-9, 56. 
CreateNewStepList: 33. kntr: 54-55. 

datlyhours: 57-58. Last: 44-45. 

Data_Error: 6. low: 55. 

data_file: 51-54. main: 6. 

data2_file: 51-52, 59. main.adb: 6. 

Developer: 54-55, 59. MakeDeadlineFirstSchedule: 14, 25. 
dur: 57-58. MakeDeadLineFirstSchedule: 34. 
Duration: 58. MakeNewSteplist: 10, 24, 33. 
DurationToCalendarTime: 57. map: 55. 

End_Of_File: 53. maz_recursion: 14, 20, 23, 25, 34. 
enumeration_1o: 41, 56. medium: 55. 

ezp_to: 56. name_present: 48, 50. 
EzpertiseLevel: 55, 56. natio: 6, 8, 20, 56. 

EzpLevel: 54-55, 59. natural: 8-9, 13, 23-25, 33-34, 55-56. 
false: 44. new_line: 19-21, 35, 59. 
filetype: 52. New_line: 6. 

Finish: 54, 57. NoDevelopers: 6, 10-11. 

finish: 55. NoFeasibleScheduleFound: 6. 
FinishTime: 41, 57-59. nofilename: 48-50. 

generic_list: 22. nrad: 44-45. 

generic_map_pkg: 22. NRaD: 57. 

generic_set_pkg: 22. num_developers: 10, 12-14, 24-25, 33-34. 
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open: Ol. 

option_present: 44, 46. 
out_file: 51. 

outfile: 49-51. 

param: 44-46. 

positive: 40. 
print_capabilitres: 59. 
print_date: 59. 
PrintAllCalendarRecords: 38. 
PrintAllScheduleRecords: 36. 
PrintAllStepRecords: 39-40. 


PrintCalendarSchedule: 18, 30, 38. 


PrintFinalSchedule: 16, 28, 36. 
PrintReadyQueue: 15, 27, 39. 
PrintStepList: 19, 31, 40. 
private: 3. 

Procedure: 24-25, 33-34. 
procedure: 3. 

protected: 3. 

put: 6, 20-21, 35, 54, 59. 
Putline: 14. 

putine: 6, 12, 20, 34, 54. 
ReadyQueue: 39. 
recurston_level: 6, 20, 23. 
SaveAllScheduleRecords: 37. 
SaveFinalSchedule: 17, 29, 37. 
schedprims: 22. 

SchedTools: 6. 

schedtools: 22. 

Schedule: 36-38. 

scheduler: 6, 22. 
scheduler.adb: 22. 
scheduler.ads: 22. 
SCHEDULER_MENU: 6, 26, 35. 
seLio: 9Q. 

selector: 9. 

SELECTOR: 6. 
selector_type: 9. 

set_col: 35, 59. 

skip_line: 6. 

Skip_Line: 6. 

Start: 54, 57. 

start: 55. 


StartDate: 46-47, 57. 
StartTime: 41, 57-59. 


stepid: 54-55, 59. 
StepList: 33, 40. 
storage_error: 6. 
suppress: 6, 41. 
system dependencies: 
test_to.pkg: 22. 
TEXTAI@G:> 22. 
tezt.to: 6, 41. 
Time: AT, 58. 
Time_Of: 46. 
true: 43. 


unchecked_deallocation: 


ustring: 13, 5o. 
Ustring: 45, 49. 
Ustrings: 41. 
ustrings: 6. 


WorkHours: 58. 


95 


INDEX 


60. 


Zee 


NAMES OF THE SECTIONS APPENDIX C  §62 


(Create new step list 10) Used in section 6. 

(Do time translations 57) Used in section 53. 

(Exception handling for selector case 21) Used in section 6. 

(Exit the program to the system 20) Used in section 6. 

( Get input file 48 ) Used in section 43. 

( Get nrad 44 ) Used in section 43. 

(Get output file 50) Used in section 43. 

(Get parameters to ConToCal 43) Used in section 41. 

(Get start date 46) Used in section 43. 

(Instantiate generic packages 8) Used in section 6. 

(Iterate through input file 53) Used in section 41. 

(Open files 51) Used in section 41. 

( Package boiler-plate 22 ) Used in section 7. 

(Print all step records 19) Used in section 6. 

(Print all steps in the ready queue 15) Used in section 6. 

(Print calendar schedule 18) Used in section 6. 

(Print final schedule 16) Used in section 6. 

(Procedures and Tasks in scheduler 33, 34, 35, 36, 37, 38, 39,40) Used in section 22. 

(Read in developer list 12) Used in section 6. 

(Read in record 54) Used in section 53. 

(Save final schedule 17) Used in section 6. 

(Schedule steps according to their deadlines 14) Used in section 6. 

( Specification of procedures visible from scheduler 24, 25, 26, 27, 28, 29, 30, 31) 
Used in section 22. 

( Specification of types and variables visible from scheduler 23) Used in section 22. 

( Variables local to ConToCal 45, 47, 49, 52, 55, 56,58) Used in section 41. 

( Variables local to main 9, 11,13) Used in section 6. 

( Write out new record 59) Used in section 53. 
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Generic List processing routines 


[Ada ’95—Version 1.0] 
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§ Appendix D INTRODUCTION 


1. Introduction. The scheduler designed and implemented by Salah Badr uses lists 
extensively. However, it has specific routines for each list used by the scheduler. This is 
redundant, as well as error prone. In my design to eliminate some large data structures 
that are slightly modified and duplicated in a very recursive and space consuming manner, 
I have decided to use additional linked lists to keep track of additions and deletions at 
each level of recursion. By keeping track of just the “changes” This will turn an N squared 
space problem into one that is linear. (This is shown to be true, later.) 


2. So since linked lists are used extensively, it pays to have a single generic routine. 
The implementation is thus hidden from the user. This allows “information-hiding,” and 
increased modularity, 


3. This code is written using Donald Knuth’s WEB paradigm for literate programming. 
To compile and link the code in its present format you will need the Ada version of the 
WEB tool. 


It is available on-line via the world-wide-web at URL: 


http: //white.nosc.mil/~evansjr/literate / 


4. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
see the paper Literate Programming, by Donald Knuth in The Computer Journal, Vol 27, 
No. 2, 1984; or the book Weaving a Program: Literate Programming in WEB by Wayne 
Sewell, Van Nostrand Reinhold, 1989. Another good source of information is the Usenet 
group comp.programming.literate. It has information on new tools and Frequently Asked 


Questions (FAQs). 


5. The program consists of several packages that are declared right now; each of these 
packages and either the specification and the body of the packages are sent to a separate 
file. The main program itself is declared later. (Since the original AWEB package was 
written for Ada ’83, it does not properly format new Ada ’95 keywords protected and 
private . We remedy using the web format commands below. 

format protected = procedure 

format private = procedure 


6. Asa way of explanation, each “Module” withing angle brackets (< >) is expanded 
somewhere further down in the document. The trailing number you see within the brackets 
is where you can find this expansion. It is top-down in appearance, and in actual fact. 


7. All the modules follow the same, top-down format. I will group all the boiler-plate into 
one module, for the compiler, but you will see it with the packages, as they are described. 


( Package boiler-plate 8 ) 
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8. List Specification. This specification is a modification of the one presented in the 
book Ada 95 Problem Solving and Program Design, by Michael Feldman and Elliot B. 
Koffman. The implementation was left as an exercise for the student. 
(Package boiler-plate 8) = 

output to file generic_list.ads 


with TEXT_IO; 
use TEXT_IO; 
generic 
type ElementType is private ; {Any nonlimited type will do} 
with procedure DisplayElement(Item : IN ElementType ); 
with function "<"(L1, 12 : ElementType)return Boolean; 
with function "="(L1,L2 : ElementType)return Boolean is <>; 
package generic_list is 
(Specification of types and variables visible from generic_list 9)( Specification of 
procedures visible from generic_list 12) private 
(Specification of private types and variables in generic_list 10) 
end generic_list; 


output to file generic_list.adb 


( Packages needed by generic_list body 32) 
package body generic_list is 
( Variables local to generic_list 30) 
(Procedures and Tasks in generic_list 33 ) 
end generic_list; 


This code is used in section 7. 


9. 


(Specification of types and variables visible from generic_list 9) = 
type list is limited private ; 
ListEmpty : exception; 


This code is used in section 8. 


10. 


(Specification of private types and variables in generic_list 10) = 
type ListNode; type ListPtr is access ListNode; 
type ListNode is 
record 
Element : Element Type ; 
Nezt : ListPtr; 
end record; 
See also section 11. 


This code is used in section 8. 
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11. Added Size field to original code. 


( Specification of private types and variables in generic_list 10) += 
type List is 

record 
Size : Natural; 
Head : ListPtr; 
Tail : ListPtr; 
Current : ListPtr; 
Previous : IistPtr; 

end record; 


12. 

(Specification of procedures visible from genertc_list 12) = 
function ListSize(L : in List return natural; 

See also sections 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, and 28. 


This code is used in section 8. 


13. Returns True if L is empty, False otherwise. 


(Specification of procedures visible from generic_list 12) += 


function IsEmpty(L: IN List)RETURN Boolean; 


14. 

Pre: Element is defined; [ may be empty. 

Post: Element is inserted at the beginning of L. 

(Specification of procedures visible from generic_list 12) += 
procedure AddToFront(L :in out List; Element : in Element Type ); 


15. 

Pre: L is defined; L may be empty. 

Post: returns a complete copy of the list L. 

Raises: ListEmpty if the list is empty before the retrieval. 

(Specification of procedures visible from generic_list 12) += 
function RetrieveFront(L :in List)return Element Type; 


16. 

Pre: ZL is defined; L may be empty. 

Post: The first node of DL is removed. 

Raises: ListEmpty if the list is empty before the removal. 


(Specification of procedures visible from generic_list 12) += 
procedure RemoveFront(L :in out List); 
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plied 
Pre: L is defined. 
Post: L is empty. 


(Specification of procedures visible from generic_list 12) += 
procedure MakeEmpty(L :in out List); 


18. 
Pre: Element is defined; L may be empty. 
Post: Element is appended to the end of L. 


(Specification of procedures visible from generic_list 12) += 
procedure AddToEnd(L: in out List; Element : in Element Type); 


19. 
Pre: Source may be empty. 
Post: Returns a complete copy of Source in Target. 


(Specification of procedures visible from generic_list 12) += 
procedure Copy(Source : in List; Target : out List); 


20. 

Pre: L may be empty. 

Post: displays the contents of L’s Element fields, in the 
order in which they appear in L. 


(Specification of procedures visible from generic_list 12) += 
procedure Display(L: IN List); 
Ze 


( Specification of procedures visible from generic_list 12) += 
procedure InsertInOrder(L : in out List; Element : Element Type ); 


22. 

( Specification of procedures visible from generic_list 12) += 
procedure GetNezt(L :in out List; Element : out Element Type); 

23. 

(Specification of procedures visible from generic_list 12) += 
procedure DeleteCurrent(L : in out List); 

24. 


(Specification of procedures visible from generic_list 12) += 


procedure DeleteMatching(L :in out List; Element : in ElementType; success : out 
boolean ); 
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2. 


(Specification of procedures visible from generic_list 12) += 
procedure GetCurrent(L :in List; Element : out ElementType); 


26. 


(Specification of procedures visible from generic_list 12) += 
procedure UpdateCurrent(L : in List; Element : in ElementType ); 


27. 


(Specification of procedures visible from generic_list 12) += 
procedure GetNth(L : in out List; N : in natural; Element : out ElementType ); 


28. 


(Specification of procedures visible from generic_list 12) += 
procedure Rewind(L :in out List); 
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29. List Body. 


30. 


( Variables local to generic_list 30) = 
debug : boolean <— false; 
See also section 31. 


This code is used in section 8. 


31. 


(Variables local to generic_list 30) += 
procedure Dispose is new unchecked_deallocation( Object = ListNode , 
Name => ListPtr); 
package natio is new integer_io(natural); 


32. 


(Packages needed by generic_list body 32) = 
with unchecked_deallocation; 
with Ustrings; 
use Ustrings; 


This code is used in section 8. 


33. 


(Procedures and Tasks in generic_list 33) = 
function ListSize(L :in List )return Natural is 
begin 
return L.Size; 
end ListSize; 
See also sections 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, and 49. 


This code is used in section 8. 


34. Returns True if L is empty, False otherwise. 


(Procedures and Tasks in generic_list 33) += 
function IsEmpty(L:IN List)RETURN Boolean is 
begin 

if ListSize(L) = 0 then 
return True; 
else 
return False; 
end if; 
end IsEmpty; 
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35. 
Pre: Element is defined; L may be empty. 
Post: Element is inserted at the beginning of L. 


(Procedures and Tasks in generic_list 33) += 

procedure AddToFront(L :in out List; Element : in ElementType ) is 
Temp : ListPtr; 

begin 
Temp — new ListNode; Temp.all.Element — Element; Temp.all.Nezt — L.Head; 
L.Head — Temp; L.Size — L.Size +1; 
if L.Size = 1 then 

L.Tail — L.Head; 

end if; 

end AddToFront; 


36. 

Pre: L is defined; L may be empty. 

Post: returns a complete copy of the list L. 

Raises: ListEmpty if the list is empty before the retrieval. 


(Procedures and Tasks in generic_list 33) += 
function RetrieveFront(L:in List)return ElementType is 
Temp : ListPtr; 
begin 
if L.Head = null then 
raise ListEmpty; 
else {L.Head points to a node; remove it } 
Temp «< L.Head; return Temp.Element; 
end if; 
end RetrieveFront; 
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37. 

Pre: L is defined; L may be empty. 

Post: The first node of L is removed. 

Raises: ListEmpty if the list is empty before the removal. 


(Procedures and Tasks in generic_list 33) += 
procedure RemoveFront(L : in out List) is 
Temp : ListPtr; 
begin 
if L.Head = null then 
raise ListEmpty; 
else { L.Head points to a node; remove it } 
Temp «— L.Head; L.Head — L.Head.all.Nezt; {jump around first node } 
Dispose(X = Temp); L.Size — L.Size —1; 
end if; 


end RemoveFront ; 


38. 


(Procedures and Tasks in generic_list 33) += 
procedure MakeEmpty(L:IN OUT List) is 
ptr : ListPtr; 
begin 
While L.Head # null loop 
RemoveFront(L); 
end loop; 
L.Size —0; L.Tail — null; 
end MakeEmpty; 
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39. 
Pre: Element is defined; L may be empty. 
Post: Element is appended to the end of L. 


(Procedures and Tasks in generic_list 33) += 
procedure AddToknd(L: IN OUT List; Element : IN ElementType ) is 
ptr : ListPtr; 
begin 
if debug then 
put("AddToEnd>, Adding, to,end,of,,list:,,"); DisplayElement( Element); 
end if; 
if L.Head = null then 
L.Tail — new ListNode'( Element, null); L.Head — L. Tail; 
else 
ptr — new ListNode'( Element, null); L.Tail.all.nezt — ptr; L.Tail — ptr; 
end if; 
L.Size — L.Size +1; 
end AddToEnd; 


40. 
Pre: Source may be empty. 
Post: Returns a complete copy of Source in Target. 


(Procedures and Tasks in generic_list 33) += 

procedure Copy(Source : in List; Target : out List) is 
ptr : listptr; 

begin 
ptr — Source.head; MakeEmpty( Target); 
while ptr ~ null loop 

AddToEnd( Target, ptr.all.element); ptr — ptr.all.nezt; 

end loop; 

end Copy; 
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41. 

Pre: L may be empty. 

Post: displays the contents of L’s Element fields, in the 
order in which they appear in L. 


(Procedures and Tasks in generic_list 33) += 
procedure Display(L:IN List) is 
ptr : ListPtr; 
begin 
if debug then 
put_Line("Display>"); 
end if; 
ptr — L.Head; 
while pir ~ null loop 
DisplayElement (ptr .all.Element); ptr — ptr.all.Nezt; 
end loop; 
end Display; 
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42. 


(Procedures and Tasks in generic_list 33) += 
procedure InsertInOrder(L :in out List; Element : ElementType ) is 
Current : ListPtr; 
Previous : ListPtr; 
Temp : ListPtr; 
begin 
if debug then 
put("InsertInOrder>"); put_Line("Youryinputylistyis:.,"); display (L); 
put("InsertInOrder>"); put_Line("Youryinputelementyis:,"); 
displayelement (Element); 
end if; 
if L.Head = null then 
AddToFront (L, Element ); 
elsif Element < L.Head.all.Element then 
AddToFront (L, Element); 
elsif (L.Tail.all.Element < Element) V (L.Size = 1) then 
AddToEnd (L, Element); 
else 
if L.size = 1 then 
put_line("InsertInOrder>,,Shouldnot,be,here!"); raise ListEmpty ; 
end if; 
Temp — new ListNode'( Element, null); Previous — L.Head; 
Current — Previous.all.nezt; 
while Current.all.element < Element loop 
Previous <— Current; Current — Current.all.nezt; 
end loop; 
Temp .all.nezt — Current; Previous.all.nezt — Temp; L.Size — L.Size +1; 
end if; 
if debug then 
put("InsertInOrder>"); put_Line("Youryinputylistyisynow:,."); display (L); 
end if; 
end InsertInOrder ; 
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43. Must be used with ListSize and Rewind or you will never know when you are at the 


end of the list. 


(Procedures and Tasks in generic_list 33) += 
procedure GetNth(L :in out List; N : in natural; Element : out ElementType ) is 
begin 
if debug then 
put("GetNth>,,Getting,,"); nat_to.put(N,1); put("“thyrecord=>"); 
end if; 
if L.Head = null then 
raise ListEmpty; 
elsif N > L.Size then 
raise ListEmpty; 
elsif N = 1 then 
L.Current — L.Head; L.Previous — L.Tail; 
else 
Rewind (L); 
fori€é2..N loop 
L.Previous — L.Current; L.Current — L.Current.all.nezt; 
end loop; 
end if; 
Element — L.Current.all.element; 
if debug then 
DisplayElement (Element); 
end if; 
end GetNth; 


44. Must be used with ListSize and Rewind or you will never know when you are at the 


end of the list. 


(Procedures and Tasks in generic_list 33) += 

procedure GetCurrent(L :in List; Element : out ElementType) is 
begin 

if L.Head = null then 

raise ListEmpty; 

end if; 

Element — L.Current.all.element; 
end GetCurrent; 
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45. Must be used with ListSize and Rewind or you will never know when you are at the 


end of the list. 


(Procedures and Tasks in generic_list 33) += 

procedure UpdateCurrent(L : in List; Element : in Element Type) is 
begin 

if L.Head = null then 

raise ListEmpty; 

end if; 

L.Current.all.element — Element; 
end UpdateCurrent; 


46. 


(Procedures and Tasks in generic_list 33) += 
procedure DeleteCurrent(Z : in out List) is 
Temp : ListPtr; 
begin 
if L.Head = null then 
raise ListEmpty; 
elsif L.Size = 1 then 
Temp — L.Current; L.Current — null; L.Previous — null; L.Head — null; 
L.Tail — null; 
else 
Temp — L.Current; 
if L.Current = L.Tail then 
L.Previous .all.nezt — L.Current.all.nezt; L.Current — L.Head; 
L.Tail — L.Previous ; 
elsif L.Current = L.Head then 
L.Current — L.Current.all.Nezt; {jump around current node } 
L.Head <— L.Current; 
else 
L.Previous.all.nezt — L.Current.all.nezt; L.Current — L.Current.all.Nezt; 
{ jump around current node } 
end if; 
end if; 
if debug then 
put("DeleteCurrent>Deleting=>"); DisplayElement( Temp.all.Element ); 
end if; 
Dispose(X => Temp); L.Size — L.Size — 1; 
end DeleteCurrent; 
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47. 


(Procedures and Tasks in generic_list 33) += 
procedure DeleteMatching(L:in out List; Element :in ElementType; success : out 
boolean ) is 
kntr : natural; 
Current : ElementType; 
begin 
success <— false; 
if L.Head = null then 
raise ListEmpty; 
end if; 
Rewind(L); kntr — L.Size; 
fori €1..kntr loop 
GetNezt(L, Current ); 
if Current = Element then 
DeleteCurrent(L); success <— true; exit; 
end if; 
end loop; 
end DeleteMatching; 


48. 


(Procedures and Tasks in generic_list 33) += 
procedure Rewind(L : in out List) is 
begin 
L.Current — L.Head; L.Previous — L.Tail; 
end Rewind; 


49. Must be used with ListSize and Rewind or you will never know when you are at the 
end of the list. 
(Procedures and Tasks in generic_list 33) += 
procedure GetNezi(L:in out List; Element : out Element Type ) is 
begin 
if L.Head = null then 
raise ListEmpty; 
elsif L.Current = L.Tail then 
L.Current — L.Head; L.Previous — L.Tail; 
else 
L.Previous — L.Current; L.Current — L.Current.all.nezt; 
end if; 
Element — L.Current.all.element; 


end GetNezt; 
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50. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


51. RCS Keywords. 
$RCSfile: list.aweb,v 
$Revision: 1.4 
$Date: 1997/08/06 16:54:30 
$Author: evansjr 
$Id: list.aweb,v 1.4 1997/08/06 16:54:30 evansjr Exp evansjr 

$Locker: evansjr 

$State: Exp 
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52. Index. Here is a cross-reference table for the MAIN program. All modules in which 
an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


AddToEnd: 18, 39, 40, 42. kntr: 47. 

AddToFront: 14, 35, 42. Dist: 11, 12-28, 33-49. 

boolean: 24, 30, 47. list: 9. 

Boolean: 8, 13, 34. ListEmpty: 9, 15-16, 36-37, 42—47, 49. 


Copy: 19, 40. ListNode: 10, 31, 35, 39, 42. 


Current: 11, 42-49. 

debug: 30, 39, 41-43, 46. 

DeleteCurrent: 23, 46, 47. 

DeleteMatching: 24, 47. 

display: 42. 

Display: 20, 41. 

DisplayElement: 8, 39, 41, 43, 46. 

displayelement: 42. 

Dispose: 31, 37, 46. 

element: 40, 42-45, 49. 

Element: 10, 14, 18, 20-22, 24-27, 
35-36, 39, 41-47, 49. 

ElementType: 8,10, 14-15, 18, 21-22, 
24-27, 35-36, 39, 42-45, 47, 49. 

False: 13, 34. 

false: 30, 47. 

generic_list: 8&8. 

generic_list.adb: 8. 

generic_list.ads: 8. 

GetCurrent: 25, 44. 

GetNezt: 22, 47, 49. 

GetNth: 27, 43. 

Head: 11, 35-39, 41-49. 

head: 40. 

v: 43, 47. 

IN: 8, 13, 20, 34, 38-39, 41. 

InsertInOrder: 21, 42. 

integer_to: 31. 

IsEmpty: 13, 34. 

Item: 8. 


[istPtr: 10, 11, 31, 35-39, 41-42, 46. 
listptr: 40. 

TistSize: 12, 33, 34, 43-45, 49. 
L1: 8. 

D2 8: 

MakeEmpty: 17, 38, 40. 
Name: 31. 

nat_to: 31, 43. 

natural: 12, 27, 31, 43, 47. 
Natural: 11, 33. 

Nezt: 10, 35, 37, 41, 46. 

nezt: 39-40, 42-43, 46, 49. 
Object: 31. 

OUT: 38-39. 

Previous: 11, 42-43, 46, 48-49. 
private: 5. 

procedure: 5. 

protected: 5. 

ptr: 38-41. 

put: 39, 42-43, 46. 

put_Line: 41-42. 

put_line: 42. 

RemoveFront: 16, 37, 38. 
RetrieveFront: 15, 36. 
RETURN: 13, 34. 

Rewind: 28, 43-45, 47, 48, 49. 
size: 42. 

Size: 11, 33, 35, 37-39, 42-43, 46-47. 
Source: 19, 40. 

success: 24, 47. 
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system dependencies: 50. 


Tail: 11, 35, 38-39, 42-43, 46, 48-49. 


Target: 19, 40. 

Temp: 35-37, 42, 46. 

mex r_lO: 8&8. 

true: 47. 

True: 13, 34. 
unchecked_deallocation: 31-32. 
UpdateCurrent: 26, 45. 
Ustrings: 32. 

While: 38. 

with: 8. 
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NAMES OF THE SECTIONS Appendix D §52 


(Package boiler-plate 8) Used in section 7. 

( Packages needed by generic_list body 32) Used in section 8. 

(Procedures and Tasks in generic_list 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
49 ) Used in section 8. 

(Specification of private types and variables in generic_list 10,11) Used in section 8. 

(Specification of procedures visible from generic_list 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 
2324..25. 26, 21, 28 ) Used in section 8. 

(Specification of types and variables visible from generic_list 9) Used in section 8. 

(Variables local to generic_list 30,31) Used in section 8. 
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§ APPENDIX E INTRODUCTION 


1. Introduction. This package computes federal holidays, and off-fridays for NRaD. 
(We work five days one week, four the next—nine hours a day, except for Fridays.) The 
input is just the year. If you do not work the 5/4 weeks then there is a switch (-nps true) 
that you can use to turn it off. 


2. This is based on a C program calyr, written by Bob Hall of Nrad in the eighties. 
Bob was a brilliant, and prolific programmer at NRaD who retired in the early nineties. 
One of his programs msgs, formed the basis of Eudora, a popular mail tool for PC’s and 
Macintoshes, and now owned by Qualcomm. 


3. This program was written to work for dates after 1970. It should work till the year 
2099. (A year 3000 problem!) To test it out compile the driver program and run it with 
the following command line: 


main [-year <year>] [-nps <boolean>] 


For example: 
main -year 1993 -nps false 


4. This code is written using Donald Knuth’s WEB paradigm for literate programming. 
To compile and link the code in its present format you will need the Ada version of the 
WEB tool. 

It is available on-line via the world-wide-web at URL: 


http://white.nosc.mil/~evansjr/literate/ 
- p 


5. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
see the paper Literate Programming, by Donald Knuth in The Computer Journal, Vol 27, 
No. 2, 1984; or the book Weaving a Program: Literate Programming in WEB by Wayne 
Sewell, Van Nostrand Reinhold, 1989. Another good source of information is the Usenet 
group comp.programming.literate. It has information on new tools and Frequently Asked 


Questions (FAQs). 


6. The program consists of several packages that are declared right now; each of these 
packages and either the specification and the body of the packages are sent to a separate 
file. The main program itself is declared later. (Since the original AWEB package was 
written for Ada ’83, it does not properly format new Ada ’95 keywords protected and 
private . We remedy using the web format commands below. 


format protected = procedure 
format private = procedure 
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7. Asa way of explanation, each “Module” withing angle brackets (< >) is expanded 
somewhere further down in the document. Consider it a high-level PDL (Program De- 
scriptor Language). The trailing number you see within the brackets is where you can find 
this expansion. It is top-down in appearance, and in actual fact. 


8. All the modules follow the same, top-down format. I will group all the boiler-plate into 
one module, for the compiler, but you will see it with the packages, as they are described. 


( Package boiler-plate 9) 
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9. Calyr Specification. 


( Package boiler-plate 9) = 

output to file calyr.ads 

with Ustrings; 

use Ustrings ; 

with TEXT_IO; 

use TEXT _IO; 

with Ada.Command_Line ; 

use Ada.Command_Line; 

with Ada.Calendar; 

use Ada.Calendar ; 

package calyr is 
( Specification of types and variables visible from calyr 11) 
( Specification of procedures visible from calyr 16 ) 

end calyr; 


output to file calyr.adb 
( Packages needed by calyr body 10) 
package body calyr is 
( Types local to calyr 57) 
( Variables local to calyr 33) 
(Local Procedures 59 ) 
( Procedures and Tasks in calyr 39 ) 
end calyr; 


This code is used in section 8. 


10. 

( Packages needed by calyr body 10) = 
with tezt_io; 
use tezt_io; 

See also section 32. 


This code is used in section 9. 


11. 


(Specification of types and variables visible from calyr 11) = 
subtype Hour_Number is integer range 0 .. 23; 
subtype Minute_Number is integer range 0 .. 59; 
subtype Second_Number is integer range 0... 59; 

See also sections 12, 13, 14, and 15. 


This code is used in section 9. 
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12. 


(Specification of types and variables visible from calyr 11) += 
BadYear : Exception; 
BadDay : Exception; 
type fourarray is array (0..3) of integer; 
type threearray is array (0..2) of integer; 


13. 


(Specification of types and variables visible from calyr 11) += 
type month is (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec); 
type DayOfWeek is (Sun, Mon, Tue, Wed, Thu, Fri, Sat); 


14. 


(Specification of types and variables visible from calyr 11) += 
subtype WeekDay is DayofWeek range Mon .. Fri; 


15. 


(Specification of types and variables visible from calyr 11) += 
Type WorkHours is array (WeekDay) of Duration; 


16. 


(Specification of procedures visible from calyr 16) = 
procedure print_holidays(yr : in Year_ Number; do_nps : in boolean ); 
See also sections 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, and 30. 


This code is used in section 9. 


17. Given a date (in Ada time format), hol.dy returns any special info about it. 
status return values: 0 not a special day 

1 a non-work holiday 

2 observation of a non-work holiday 

3 other special day (not non-work) 

4 an off-Friday or Thursday 


di return values: di{0] weekday of holiday (0 to 6) 
di{1] day identification index 
di|2] 2: off-Friday; 1 : off-Thursday 


0: not an offday 


(Specification of procedures visible from calyr 16) += 
procedure holdy(yrdate : time; di : out threearray ; status : out integer ); 
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18. This function was taken from the book Numerical Recipes. It actually works on any 
year, not the artificial limit imposed by Ada type Year_Number (1901 .. 2099). 


( Specification of procedures visible from calyr 16) += 
function julian_day(Month : Month._Number; Day : Day_Number; Year : Integer )return 
long_integer ; 


19. This procedure calculates the Month, Day, and Year when given the Julian_day. 


(Specification of procedures visible from calyr 16) += 
procedure caldate(Julian : Long_integer; Month : out Month_Number; Day : out 
Day_Number; Year : out Integer); 


20. Computes whether this is an off-day or a work-day. 


(Specification of procedures visible from calyr 16) += 
function Is WorkDay(YrDate : Time; NRaD : boolean <— false; 
debugit : boolean <— false return boolean; 


21. Function aid computing new dates based on work hours. 


(Specification of procedures visible from calyr 16) += 
function DurationToCalendarTime(StartDate : Time; datlyhours : WorkHours; 
hrs : Duration; NRaD : boolean )return Time; 


22. Inverse of above. 


(Specification of procedures visible from calyr 16) += 
function CalendarTimeToDuration(StartDate : Time; dailyhours : WorkHours; 
EndDate : Time; NRaD : boolean )return Duration, 


23. 


(Specification of procedures visible from calyr 16) += 
function SameDay(Timel , Time2 : Time )return boolean; 


24. 


(Specification of procedures visible from calyr 16) += 


function GetDayOfWeek( Today : Time )return DayOfWeek; 


25. Straightforward transformation. 


(Specification of procedures visible from calyr 16) += 
function ConvertHoursToDuration(hrs : natural)return Duration; 


26. Inverse of previous. 


(Specification of procedures visible from calyr 16) += 
function ConvertDurationToHours(dur : Duration)return natural ; 
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27. 


(Specification of procedures visible from calyr 16) += 
Procedure Split(Seconds : Day Duration; Hour : out Hour_Number; Minute : out 
Minute. Number; Second : out Second_Number ); 


28. 


( Specification of procedures visible from calyr 16) += 
procedure print_date(date : time); 
procedure print_date(outfile : filetype; date : time); 


29. 


( Specification of procedures visible from calyr 16) += 
function get_date(str :in Ustring )return Time; 
function get_date(infile : filetype )return Time; 


30. Adds one day to the input parameter. 


(Specification of procedures visible from calyr 16) += 
function IncrementDay(YrDate : Time)return Time; 


124 


§31 APPENDIX E CALYR BODY 
31. Calyr Body. 


32. 


(Packages needed by calyr body 10) += 
with Ada.Strings.Unbounded; Use Ada.Strings. Unbounded; with Ustrings; 
use Ustrings; 


33. Number days in the month. 


(Variables local to calyr 33) = 
ndm : array (Month.Number) of natural — (31, 28, 31, 30, 31, 30, 31, 31, 30,31, 30, 31); 
See also sections 34, 35, 36, 37, 38, 46, 48, 49, 50, 58, and 65. 


This code is used in section 9. 


34. Last day/previous month. 


(Variables local to calyr 33) += 
Idpm : array (Month_Number ) of natural — (0,31, 59,90, 120, 151, 181, 212, 243, 273, 
304, 334); 


35. List of holidays. 


(Variables local to calyr 33) += 

NumHolidays : constant natural — 20; 

holidays : constant array (1 .. NumHolidays) of Ustring — (U("New Year “s,Day"), 
U("ML KinguDay"), U("Presidents “,Day"), U("Memorial,Day" ), 
U("Independence,Day"), U("Labor,Day"), U("Columbus,Day" ), 
U("Veterans “,Day"), U("Thanksgiving, Day" ),U("Christmas,Day" ), 
U("Valentine’s,Day"),U("St Patrick ’s,Day"),U("Good,Friday"), 
U("Easter"), U("Mothers “,Day"), U("Armed,Forces,Day"), U("Flag, Day"), 
U("Fathers “,Day"), U("Halloween"), U("Election,Day" )); 
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36. Index of Holidays. 
( Variables local to calyr 33) += 


JNYD : 


constant integer — 1; 


JMLK : constant integer — 2; 


JPRS : 
JMEM 
JIND : 
JLAB 

JCOL : 
JIVET 
JITHX 
JCHR 
JVAL 
ees 
JGFR 
JEST 
JMOT 
a Any: 
JFLG : 
JFAT : 
JHAL: 
JELC : 


constant integer — 3; 
: constant integer <— 4; 
constant integer <— 5; 


: constant integer < 6; 


constant integer — 7; 


: constant integer < 8; 

: constant integer <— 9; 
: constant integer <— 10; 
: constant integer «+ 11; 
: constant integer — 12; 
: constant integer < 13; 
: constant integer — 14; 


: constant integer — 15; 
constant integer — 16; 
constant integer — 17; 
constant integer — 18; 
constant integer — 19; 
constant integer — 20; 


37. Index of something. 


( Variables local to calyr 33) += 
INYD : constant integer «0; {index for NEW YEAR’S DAY, etc. } 


IMLK : 


IPRS : 
IGFR : 
TEST : 
IMEM 
ICOL : 
IVET : 
THAL : 
IELC : 


constant integer < 1; 
constant integer — 1; 
constant integer <— 1; 
constant integer <— 2; 
: constant integer < 2; 
constant integer < 0; 
constant integer — 1; 
constant integer <— 2; 
constant integer <— 0; 
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38. 


(Variables local to calyr 33) += 
debug : boolean <— false; 
debug2 : boolean < false; 
verbose : boolean < true; 
nps : boolean < false; 
already_leaped : boolean — false; 
package int_io is new integer_io(integer ); 
use intio; 


39. 


(Procedures and Tasks in calyr 39) = 
procedure hol dy(yrdate : time; di : out threearray ; status : out integer ) is 
(Types and Variables local to hol. dy 41) 
begin 
(Parse date 40) 
( Check if leap year 42) 
(Set year 43} 
(Set month 63 ) 
(Loop over holidays and Off-Fridays 67 ) 
end hol dy; 
See also sections 81, 88, 93, 101, 109, 118, 129, 131, 132, 133, 134, 136, 137, 139, 141, and 143. 


This code is used in section 9. 


40. 


(Parse date 40) = 
Split(yrdate , Year, Month, Day, Seconds); hmn — Calyr.month'val( Month — 1); 
status <0; di(0) <0; di(1) «+0; di(2) — 0; 


This code is used in section 39. 


41. 


(Types and Variables local to hol dy 41) = 
Year : Year_Number; 
Month : Month_Number; 
Day : Day_Number; 
Seconds : Day. Duration; 
hmn : Calyr.Month; 
See also sections 45, 64, 68, and 71. 


This code is used in section 39. 
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42. Simple-minded check. Must later look up what to do at end of century. 
(Check if leap year 42) = 
if (( Year mod 4) = 0) A (-already_leaped ) then 
already_leaped «— true; ndm(calyr.month'pos(Feb) +1) — 29; 
for 7 €3..12 loop 
ldpm(j) < Idpm(jz) + 1; 
end loop; 
end if; 


This code is used in section 39. 


43. The datatype hol must be modified based on the year. The following code does just 
that. 
(Set year 43) = 
(Calculate weekday of Jan 1. 44) 
(Calculate beginning date of 1st pay period in year 47) 
(Update ML King Day 51) 
(Update President’s Day 52) 
(Update Memorial Day 53) 
(Update Columbus Day 54) 
(Update Veteran’s Day 55) 
(Compute Easter 56) 


This code is used in section 39. 


44. 


(Calculate weekday of Jan 1. 44) = 
jul := julian_day(1,1, Year); fdy — DayOfWeek'val((jul + 1) mod 7); 
jul := julian_day (Month, Day, Year); di(1) <— integer((jul + 1) mod7); 


This code is used in section 43. 


45. 
(Types and Variables local to hol. dy 41) += 


jul : long_integer; 


46. Make global. 


( Variables local to calyr 33) += 
fdy : DayOfWeek; 
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47. Funny C logic. Seems to work. 


(Calculate beginning date of 1st pay period in year 47) = 
tYear «— Year — 1970; tmp <~ (Year — 1) rem 4; 
if tmp = 0 then 

imp — 1; 
else 
tmp <— Q; 
end if; 
bpp «— (11 — tYear — tmp — (tYear/4)) rem 14; 
if bpp <1 then 
bpp <— bpp + 14; 
end if; 


This code is used in section 43. 


48. Make global. 


(Variables local to calyr 33) += 
bpp : integer; 
tYear : integer; 
imp : integer; 


49. 


( Variables local to calyr 33) += 
type hoLtype is 

record 
dy : fourarray; { Day of week or date of holiday } 
wn : fourarray; { Week number (-1 -; skip } 
fl: fourarray; { 1/0 -j non-work/work holiday } 
tz: fourarray; { Index of holiday name } 

end record; 
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50. I know this is ugly, but it comes directly from C code. 


(Variables local to calyr 33) += 

hol : array (Month) of hol.type — (((1, DayOfWeek'pos( MON ), —1,0), (0,3, 0,90), (1, 
1,0,0),(JNYD,JMLK ,0,0)), ((14, DayOfWeek'pos(MON ), —1,0), (0,3, 0,0), (0,1, 
0,0),(JVAL, JPRS ,0,0)), ((17, 0,0, —1), (0, —1, —1,0),(0,0,0,0),(JSPT , JGFR, 
JEST ,0)), ((0,0,0, —1),(—1, —1, —1,0), (0, 0,0, 0), (0, JGFR, JEST ,0)), 
((DayOfWeek'pos(SUN ), DayOfWeek'pos(SAT ), DayOfWeek'pos( MON ), —1), (2, 
3,5,0),(0,0,1,0),(JMOT,JAFD, JMEM,0)),((14, DayOfWeek'pos(SUN ), —1,0), 
(0, 3,0,0),(0,0,0,0),(JFLG, JFAT ,0,0)),((4, —1, 0,0), (0,0, 0,0), (1,0,0,0), (JZIND, 
0,0,0)),((—1, 0,0, 0), (0, 0,0, 0), (0, 0,0, 0), (0,0,0,0)), ((DayOfWeek'pos(MON ), 
—1,0,0), (1,0,0,0),(1,0,0,0),(JZAB ,0,0,0)),((DayOfWeek'pos(MON), 
DayOfWeek'pos( MON ),31, —1), (2, —1,0,0),(1,1,0,0),(JCOL, JVET , JHAL,0)), 
((DayOfWeek'pos( TUE ), 11, DayOfWeek'pos( THU ), —1),(—1,0, 4,0), (0, 1,1, 0), 
(JELC,JVET, JTHX ,0)),((25, —1, 0,0), (0,0,0,0),(1,0,0,0),(JCHR ,0,0,0))); 


51. ML King Day became federal holiday in 1986. 
(Update ML King Day 51) = 
if Year > 1985 then 
hol(JAN ).wn(IMLK ) <— 3; 
else 
hol(JAN ).wn(IMLK ) — -1; 
end if; 


This code is used in section 43. 


52. President’s day is third Monday (after 1971). 
(Update President’s Day 52) = 
hol( Feb ).dy(IPRS ) — DayOfWeek'pos(Mon); hol(Feb).wn(IPRS) <— 3; 
if (Year < 1971) then 
hol(Feb).dy(IPRS ) — 22; hol(Feb).wn(IPRS) — 0; 
end if; 


This code is used in section 43. 


53. Memorial Day is last Monday in May. 
(Update Memorial Day 53) = 
hol( May ).dy(IMEM ) — DayOfWeek'pos(Mon); hol(May).wn(IMEM ) < 5; 


This code is used in section 43. 
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54. Columbus Day is second Monday in October. Did not exist before 1971, I guess? 


(Update Columbus Day 54) = 
hol(Oct).wn(ICOL) — 2; 
if Year < 1971 then 
hol(Oct).wn(ICOL) — —1; 
end if; 


This code is used in section 43. 


D5. 


(Update Veteran’s Day 55) = 
hol(Oct).wn(IVET ) — —1; hol(Nov).wn(IVET ) — 0; 
if Year < 1978 then 
hol(Oct).wn(IVET ) — 4; hol(Nov).wn(IVET ) — —1; 
end if; 


This code is used in section 43. 


56. Calls the function Easter. Also computes Good Friday. 


(Compute Easter 56) = 
edt «— easter( Year); hol(edt.mn).dy(IEST ) — edt.dt; hol(edt.mn).wn(IEST ) — 0; 
edt.dt « edt .dt — 2; 
if edt.dt <1 then 
edt.dt < edt.dt + ndm(3); edt.mn <— Mar; 
end if; 
hol(edt.mn).dy(IGFR) — edt.dt; hol(edt.mn).wn(IGFR) <— 0; 


This code is used in section 43. 


57. 
(Types local to calyr 57) = 
type caldat is 
record 
mn : Month; 
dt : integer; 
end record; 


This code is used in section 9. 


38. 


( Variables local to calyr 33) += 
edt : caldat; 
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59. Here is the function easter that returns the day and month Easter occurs for a given 
year. 
(Local Procedures 59) = 
function easter( Year :in Year_Number )return caldat is 
(Types and variables local to easter 60) 
begin 
fde — ndm(1)+ ndm(2); dt.dt — pfm(( Year — 1900) mod 19); 
if dt.dt <0 then 
dt.mn <— Mar; dt.dt — —dt.dt; 
else 
dt.mn < Apr; fde < fde + ndm(3); 
end if; 
(Compute weekday for Paschal Full Moon 62) 
return dt; 
end easter; 


This code is used in section 9. 


60. Here is the Paschal Full Moon table used to find Easter. 


(Types and variables local to easter 60) = 
pfm : constant array (0 .. 18) of integer — (14,3, —23, 11, —31,18, 8, —28, 16,5, —25, 
13, 2, —22, 10, —30, 17, 7, —27); 
See also section 61. 


This code is used in section 59. 


61. 


(Types and variables local to easter 60) += 
fde : integer; 
dt : caldat; 


62. Easter is the next Sunday following the Paschal Full Moon. 


(Compute weekday for Paschal Full Moon 62) = 
fde — (dt.dt + fde — (8 — DayOfWeek' pos (fdy ))) rem 7; 
if fde <0 then 
fde — (7+ fde) rem7; 
end if; 
dt.dt — dt.dt+ 7 — fde; 
if dt.dt > ndm(month'pos(dt.mn) +1) then 
dt.dt — dt.dt — ndm(month'pos(dt.mn) +1); dt.mn — month'succ(dt.mn)); 
end if; 


This code is used in section 59. 
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63. Used to determine off-fridays of month. Also, if November, figure out election day. 
(Set month 63) = 


declare 
Idm, ofr, 11,97 : wnteger; 
begin 
ofr — bpp — 2; 
if ofr <1 then 
ofr <— ofr + 14; 
end if; 


Idm <— Idpm(Month); ofr — ofr + (Idm/14) « (14) — ldm; 
if ofr <0 then 
ofr < ofr +14; 
elsif ((Month > 1) A (ofr > 14)) then 
ofr < ofr — 14; 
end if; 
ofrdy(0) — UNST; ofrdy(1) — UNST; ofrdy(2) — UNST; ofrdy(3) — UNST; 
if (Year > 1979) then 


By 0; 
loop 
if (( Year # 1982) V (Month # 4) V (ofr # 2)) A (( Year £ 1980) V (Month # 1)) 
then 
ofrdy (37) <— ofr; 9 — 9 +1; 
end if; 
ofr <— ofr +14; exit when ofr > ndm(Month); 
end loop; 
end if; 


fdm — (Ildm — (7 — DayOfWeek'pos (fdy ))) rem 7; 
if fdm <0 then 
fdm — (7+ fdm) rem 7; 
end if; 
( Figure out election day 66) 
end; 


This code is used in section 39. 


64. 


(Types and Variables local to hol. dy 41) += 
UNST : constant integer <— 64; 
jy 3 wnteger; 
ofrdy : fourarray ; 
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65. Make global. 


( Variables local to calyr 33) += 
fdm : integer; 


66. 


(Figure out election day 66) = 
if (hmn = Nov) A (( Year rem 2) = 0) then 
it < hol(Nov).dy(JELC ) — fdm + 1; 
if i <1 then 
uw <u + 7; 
end if; 
if a <2 then 
hol(Nov).wn(IELC ) — 2; 
else 
hol(Nov).wn(IELC ) — 1; 
end if; 
end if; 


This code is used in section 63. 


67. Main part of hol dy. 


(Loop over holidays and Off-Fridays 67) = 
2 <«-0; 77 — 0; 
loop 
(Check for no more holidays 69 ) 
if (hol(hmn).wn(1z) > 0) then 
ho «0; (Holiday with fixed week day or fixed date 70) 
(Exhaust any earlier off-Fridays 72 ) 
( Check if off-Friday moved back to Thursday 73) 
( Work, and normal and Sunday non-work, holiday 74) 
( Monday/Friday extra day 75) 
(Saturday non-work holiday 76 ) 
end if; 
1 <-12+1; 
(ugly )) exit when (1 > 3); 
exit when ((hol(hmn).dy (i) < 0) A (ofrdy (jj ) = UNST )); 
end loop; 
( December processing 77 ) 


This code is used in section 39. 


68. 
( Types and Variables local to hol dy 41) += 


11, ho : integer; 
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69. 


(Check for no more holidays 69) = 
if hol(hmn).dy(i) < 0 then 
if (integer( Month) < 12) V (ofrdy (jj) < ndm(12)) then 
if ofrdy (jj) = Day then 
di(2) — 2; 
if status = 0 then 
status < 4; 
end if; 
end if; 
jj — 33 +1; goto ugly; 
else 
exit; 
end if; 
end if; 


This code is used in section 67. 
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ao. 


(Holiday with fixed week day or fixed date 70) = 
if hol(hmn).wn(it) > 0 then 
dw <— hol(hmn).dy(i); date — dw — fdm +1; 
if date < 1 then 
date « date + 7; 
end if; 
date — date + (7 * (hol(hmn).wn(i) — 1)); 
if date > ndm(Month) then {Takes care of Memorial Day } 
date « date — 7; 
end if; 
else {Holiday with fixed date} 
date — hol(hmn).dy(iw); dw <— (date — (8 — fdm)) rem 7; 
if dw <0 then 
dw «(7+ dw) rem7; 
end if; 
if hol(hmn).fi(i) >Othen {Take care of weekend holidays } 
if dw = DayOfWeek'pos(Sun) then 
ho «1; 
elsif dw = DayOfWeek'pos(Sat) then 
ho — -1; 
else 
ho — 0; 
end if; 
end if; 
end if; 


This code is used in section 67. 


71. 
(Types and Variables local to hol. dy 41) += 


date, dw : integer; 
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APPENDIX E 


while ((hol(hmn).fl(iz) > 0) A(((ho = O)A 
(date —1))))) V ((hol(hmn).fl(a) = 


if ofrdy(jj7) = Day then 
di(2) — 2; 
if status = 0 then 

status <«— 4; 

end if; 

end if; 

m7 1; 

end loop; 


This code is used in section 67. 


73. 


CALYR BODY 


ofrdy (77) < date) V ((ho < 0) A (ofrdy (37) < 


0) A (ofrdy (37) < date)) loop 


( Check if off-Friday moved back to Thursday 73) = 
if (ofrdy (ij) > 1) A(hol (Aman ).fl(ié) > 0) ((ofrdy (ji) = date) (ofrdy (ji) = (date +h0))) 


then 
if (ofrdy(jj )— 1) = Day then 
di(2) — 1; 
if status = 0 then 
status < 4; 
end if; 
end if; 
foe 7 + 1; 
end if; 


This code is used in section 67. 


74. 


(Work, and normal and Sunday non-work, holiday 74) = 


if (ho > 0) A (date = Day) then 


di(0) — dw; di(1) — hol(hmn).iz(i); status — 1+ 2 (di(1)/JVAL); 


end if; 


This code is used in section 67. 


75. 
( Monday/Friday extra day 75) = 


if (ho £0) A ((date + ho) > 0) A ((date + ho) = Day) then 
di(0) — dw +ho; di(1) — hol(hmn).iz(iz); status — 2; 


end if; 


This code is used in section 67. 
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76. 


(Saturday non-work holiday 76) = 
if (ho <0) A (date = Day) then 
di(0) — dw; di(1) — hol(hmn).iz(i); status — 1; 
end if; 


This code is used in section 67. 


i 


(December processing 77) = 
if hmn = Dec then 
(Is first of next year a Friday or Saturday and this is an off-Friday? 78 ) 
( Weekday of December 31 79) 
(December 31 a Friday the observe Saturday, January 1st 80) end if; 


This code is used in section 67. 


78. 


(Is first of next year a Friday or Saturday and this is an off-Friday? 78) = 
if 77 #0 then 
if (ofrdy (jj ) = ndm(12)) then 
tmp —1; 
else 
tmp — 0; 
end if; 
if ((ofrdy (jj —1) = (ndm(12)—13)) V(ofrdy (3) = ndm(12))) A((ndm (12)—tmp ) = Day) 
then 
di(2) 1; 
if status = 0 then 
status < 4; 
end if; 
end if; 
end if; 


This code is used in section 77. 


79. 


( Weekday of December 31 79) = 
dw < (ndm(12) — (8 — fdm)) rem 7; 
if dw <0 then 
dw «— (7+ dw) rem7; 
end if; 


This code is used in section 77. 
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80. 


(December 31 a Friday the observe Saturday, January Ist 80) = 
if (dw = DayOfWeek'pos(Fri)) A ndm(12) = Day then 
di(0) — DayofWeek'pos(Fri); di(1) — hol(Jan).iz(INYD); status — 2; 
end if; 


This code is used in section 77. 


81. 


(Procedures and Tasks in calyr 39) += 
procedure print_holidays(yr : in Year_Number; do_nps : in boolean) is 
(Variables local to print_holidays 84 ) 
begin 
nps <- do.nps; (Loop through months 82) 
end print_holidays ; 


82. Straightforward. 


(Loop through months 82) = 
for mon € Jan .. Dec loop 
if -verbose then 
put(month'tmage(mon)); put(">"); 
end if; 
{Loop through days of month 83) 
if sverbose then 
put_line("\,"); 
end if; 
end loop; 


This code is used in section 81. 
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83. 


(Loop through days of month 83) = 
for 1i € 1..(ndm(month'pos(mon) + 1)) loop 
hol dy( Time_of (yr, month'pos (mon) + 1, 72, 0.0), dz, status ); 
if -verbose then 
if (status > 0) then 
put("dayy=u"); put(iz,1); put(".uustatusy="); put(status,1); 
put(" yudiy=ut"); 
fori €0..2 loop 
put (di(z),1); 
if 1 < 2 then 
put(","); 
end if; 
end loop; 
put_line("}.,"); 
end if; 
else 
(Print out first day of month 85) 
(Print out holidays, as necessarily 87 ) 
end if; 
end loop; 


This code is used in section 82. 


84. 


( Variables local to print_holidays 84) = 
status : integer; 
di : threearray ; 

See also section 86. 


This code is used in section 81. 


85. 
(Print out first day of month 85) = 
if «2 = 1 then 
put(month'tmage(mon)); put(i,3); put(""); hfdm — DayOfWeek'val(fdm); 
put(DayOfWeek'image(hfdm)); put_line(""); 
end if; 


This code is used in section 83. 


86. 


( Variables local to print_holidays 84) += 
hfdm : DayOfWeek:; 
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87. 


(Print out holidays, as necessarily 87) = 
if status > 0 then 
if snps then 
if (d:(2) > 0) then 
hfdm <— DayOfWeek'val(di(2) + 3); put(DayOfWeek'image(hfdm)); put(2z,3); 
put("\,"); put_line("Offday"); 
end if; 
end if; 
if status < 3 then 
hfdm <— DayOfWeek'val(di(0)); put(DayOfWeek'tmage(hfdm)); put(2,3); 
put("y"); put(S( holidays (dz(1)))); 
if status # 2 then 


put_line(""); 
else 
put_line(",(Observed)"); 
end if; 
end if; 


end if; 


This code is used in section 83. 


88. 
(Procedures and Tasks in calyr 39) += 
procedure caldate(Julian : Long_integer; Month : out Month_Number; Day : out 
Day.Number; Year : out Integer ) is 
( Variables local to caldat 90) 
begin 
if (julian > IGREG) then 
(Correct for to Gregorian Calendar 89) 
else 
ja + julian; 
end if; 
( Now finish computation 91 ) 
end caldate ; 


89. 


(Correct for to Gregorian Calendar 89) = 
jalpha — long_integer (((float (julian — 1867216) — 0.25)/36524.25) — 0.5); 
ja <— julian + 1+ jalpha — long_integer(0.25 * float (jalpha ) — 0.5); 


This code is used in section 88. 
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90. 


( Variables local to caldat 90) = 
IGREG : constant long_integer — (15 + 31 « (10 + 12 * 1582)); 
jya,jalpha : long_integer; 

See also section 92. 


This code is used in section 88. 


ou 


( Now finish computation 91) = 
jb — ja + 1524; 
je <— long_integer ((6680.0 + (float (7b — 2439870) — 122.1)/365.25) — 0.5); 
jd — (365 * 7c) + long_integer (0.25 * float (jc) — 0.5); 
je <— long_integer (float (jb — jd)/30.6001 — 0.5); 
Day <— Integer(7b — jd — long_integer (30.6001 x float (je ) — 0.5)); 
TMonth — Integer(je — 1); 
if (TMonth > 12) then 
Month — Tmonth — 12; 
else 
Month — Tmonth; 
end if; 
Year < integer(jc — 4715); 
if (Month > 2) then 
Year <— Year — 1; 
end if; 
if Year <0 then 
Year <— Year — 1; 
end if; 


This code is used in section 88. 


92. 


( Variables local to caldat 90) += 
j6,jc,7d4,Je : long_integer; 
Tmonth : integer; 
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93. 


(Procedures and Tasks in calyr 39) += 
function julian_day(Month : Month.Number; Day : Day.Number; Year : Integer )return 
long_integer 1s 

( Variables local to Julian_Day 94 ) 

begin 
(Check for bad year 95) 
( Twiddle some variables before computing 96 ) 
(Compute julian number 98 } 
(Test whether to change to Gregorian Calendar 99) 
return jul; 

end julian_day ; 


94. 


(Variables local to Julian_Day 94) = 
jul : long_integer ; 
See also sections 97 and 100. 


This code is used in section 93. 


95. There is no year zero! 


(Check for bad year 95) = 
if (Year = 0) then 
raise BadYear; 
end if; 


This code is used in section 93. 


96. I translated this from C. I don’t pretend to understand it. 
(T'widdle some variables before computing 96) = 
if Year < 0 then 
TYear — Year +1; 
else 
TYear — Year; 
end if; 
if Month > 2 then 
jy — TYear; ym — Month +1; 
else 
jy — TYear —1; ym — Month + 13; 
end if; 


This code is uSed in section 93. 
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97. 


(Variables local to Julian_Day 94) += 
T Year ,jy,j7m : integer; 


98. Probably taken from the book Astronomical Formulae for Calculators. 
(Compute julian number 98) = 


jul — long_integer (365.25 float (jy ) — 0.5) + long_integer (30.6001 * float(jm) — 0.5) + 
long_integer(Day + 1720995); 


This code is used in section 93. 


99. Gregorian Calendar was adopted on October 15, 1582. 
(Test whether to change to Gregorian Calendar 99) = 
if long_integer (integer (Day) + 31 * (integer( Month) + 12* Year)) > IGREG then 
ja <— integer (0.01 * float (jy) — 0.5); 
jul — jul + long_integer(2 — ja + integer (0.25 x float(ja) — 0.5)); 
end if; 


This code is uSed in section 93. 


100. 


( Variables local to Julian_Day 94) += 
IGREG : constant long_integer — (15 + 31 * (10 + 12 * 1582)); 


ja : integer; 
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101. 


(Procedures and Tasks in calyr 39) += 
function Is WorkDay(YrDate : Time; NRaD : boolean <— false; 
debugit : boolean < false )return boolean is 
(Variables local to IsWorKDay 103) 
begin 
status <1; workday < false; hol dy(Current_Time, di, status ); 
if debugit then 
(Display hol dy output 102) 
end if; 
dow «<— GetDayOfWeek( YrDate ); 
if status = 0 then 
(Make sure not a Saturday or Sunday 106) 
elsif nrad then 
(Look if NraD off-Friday (or off-Thursday if Friday a holiday) 107) 
else 
(See if federal holiday 108 ) 
end if; 
if debugit then 
(Print if workday 104) 
end if; 
return workday; 


end Is WorkDay ; 


102. 

(Display hol.dy output 102) = 
Split( Yrdate , Year, Month, Day, Seconds ); put("Status,=,"); put(status, 1); 
put (“gudiy=ut" ); 
forz€0..2 loop 

put(di(z),2); 
if 2 < 2 then 
put(" , as 
end if; 
end loop; 
put_line("},,"); 


This code is used in section 101. 
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103. 
(Variables local to IsWorkKDay 103) = 


Year : Year_Number; 
Month : Month.Number; 
Day : Day_Number; 
Seconds : Day_Duration; 
dow : DayOfWeek; 

See also section 105. 

This code is used in section 101. 


104. 
(Print if workday 104) = 
print_date( Yrdate ); 
if workday then 
put_line("\Wis,ayworkday.''); 
else 
put_line ("is NOT ja,workday."); 
end if; 


This code is used in section 101. 


105. 
( Variables local to Is WorKDay 103) += 


status : integer; 

workday : boolean; 

di : threearray ; 

Current.Time : Time — YrDate; 


106. 
( Make sure not a Saturday or Sunday 106) = 
if (dow # Sun) A(dow # Sat) then 
workday <— true; 
end if; 
This code is used in sections 101, 107, and 108(2). 


107. Make allowances for people (NRaD) working 5/4 weekly schedule. 


( Look if NraD off-Friday (or off-Thursday if Friday a holiday) 107) = 
if status = 3 then 
(Make sure not a Saturday or Sunday 106 ) 
end if; 


This code is used in section 101. 
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108. If status > 2 could be Arbor Day, or other work holiday. 


( See if federal holiday 108) = 
if status = 3 then 
(Make sure not a Saturday or Sunday 106 ) 
end if; 
if status = 4 then 
(Make sure not a Saturday or Sunday 106 ) 
end if; 


This code is used in section 101. 


109. 


(Procedures and Tasks in calyr 39) += 
function DurationToCalendarTime(StartDate : Time; dailyhours : WorkHours ; 
hrs : Duration; NRaD : boolean )return Time is 

( Variables local to DurationToCalendarTime 111) 

begin 
(Find next work-day 110) 
(Remove slop 112) 
(Find next work-day 110) 
(If partial day, account for it 114)( Find next work-day 110) 
(Find last work-day 116) 
(Figure out partial day 117) 
return Current_Time ; 

end DurationToCalendarTime ; 


110. 


(Find next work-day 110) = 
while (=Js WorkDay(Current_Time, NRaD )) loop 
Current_Time — IncrementDay(Current_Time); 
end loop; 
This code is used in sections 109(3) and 116. 


111. 


( Variables local to DurationToCalendarTime 111) = 
Current_Time : Time — StartDate; 
See also sections 113 and 115. 


This code is used in section 109. 
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112. Ifthe start date was not a work day, and the the number of hours in Start Date is 
greater then zero, remove it. (Maybe this should be an error.) 
(Remove slop 112) =_ 
Split( Current_Time, Year, Month, Day, Seconds ); 
if Current_Time # StartDate then 
Seconds < 0.0; Current_Time — Time_of ( Year, Month, Day, Seconds ); 
end if; 


This code is used in section 109. 


113. 


( Variables local to DurationToCalendarTime 111) += 
Year : Year. Number; 
Month : Month_Number; 
Day : Day_Number; 
Seconds : Day_Duration; 


114. If the StartDate has seconds ; zero then this means we are starting a new task in 


the middle of the day. 
(If partial day, account for it 114) = 
-yhrs <— hrs; yrday — GetDayOfWeek( Current. Time ); 
if (dailyhours(yrday ) — seconds) > yhrs then 
Current._Time — Current_Time + yhrs; yhrs <— 0.0; 
else 
Current. Time — Current_Time — Seconds; 
Current_Time — IncrementDay(Current_ Time); 
yhrs — yhrs — (datlyhours(yrday ) — seconds ); 
end if; 


This code is used in section 109. 


115. 


( Variables local to DurationToCalendarTime 111) += 
yhrs : Duration; 


yrday : DayOf Week; 
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116. 


(Find last work-day 116) = 
yrday <— GetDayOfWeek( Current_Time); 
while yhrs > dailyhours (yrday ) loop 
yhrs — yhrs — dailyhours(yrday ); Current. Time «< IncrementDay(Current_Time ); 
(Find next work-day 110) 
yrday <- GetDayOfWeek( Current_Time ); 
if (yrday = Sat) V (yrday = Sun) then 
put("ERROR! ,ERROR!,,ERROR!"); new_line; 
put ( "For, some, reason, failed,,to find, next, work-day,,for,date,=," ye 
print_date( Current_Time ); 
if (~Js WorkDay( Current_Time, NRaD, True)) then 
put(",, (NOT a work-day.)"); 
else 
put("4 CIS aywork-day.)"); 
end if; 
new_line; raise BadDay; 
end if; 
end loop; 


This code is used in section 109. 


V7 
(Figure out partial day 117) = 
if yhrs > 0.0 then 
Current._Time — Current_Time + yhrs; yhrs — 0.0; 
end if; 


This code is used in section 109. 


118. 


(Procedures and Tasks in calyr 39) += 
function Calendar Time ToDuration( StartDate : Time; dailyhours : WorkHours; 
EndDate : Time; NRaD : boolean )return Duration is 

( Variables local to CalendarTime ToDuration 121 ) 

begin 
( Assert that input dates are correct 119) 
(Count work hours over total span of days 122 ) 

end CalendarTimeToDuration; 


149 


CALYR BODY APPENDIX E- 8119 


119. The StartDate and EndDate must be valid work days and must have hours less 
then or equal to the total number of hours worked in a day. If this is not true, raise the 
BadDay exception. 
(Assert that input dates are correct 119) = 
if —Is WorkDay(StartDate, NRaD ) V ~IsWorkDay(EndDate, NRaD) then 
raise BadDay; 
end if; 
Split(StartDate , Start Year , StartMonth, StartDay, StartSeconds ); 
dow <— GetDayOfWeek(StartDate ); 
if StartSeconds > dailyhours (dow) then 
raise BadDay ; 
end if; 
Split(EndDate, End Year , EndMonth, EndDay, EndSeconds ); 
dow «<~ GetDayOfWeek( EndDate ); 
if EndSeconds > dailyhours(dow ) then 
raise BadDay; 
end if; 
See also section 120. 


This code is used in section 118. 


120. Also check that EndDate ; StartDate. 
( Assert that input dates are correct 119) += 
if StartDate > EndDate then 


raise BadDay; 
end if; 


121. 


( Variables local to CalendarTimeToDuration 121) = 
Start Year, End Year : Year_Number; 
StartMonth, EndMonth : Month. Number; 
StartDay, EndDay : Day.Number; 
StartSeconds , EndSeconds : Day_Duration; 
dow : DayOfWeek; 

See also sections 124 and 127. 


This code is used in section 118. 
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122. 


(Count work hours over total span of days 122) = 
if SameDay(StartDate, EndDate) then 
(Figure out duration for same day 123) 
else 
(Count work hours for first day 125 ) 
(Count work hours for intermediate days 126 ) 
(Count work hours for last day 128 ) 
end if; 
return hrs; 


This code is used 1n section 118. 


123. Easy. Just Subtract. 
(Figure out duration for same day 123) = 
hrs <- EndDate — StartDate; 


This code is used in section 122. 


124. 


(Variables local to CalendarTimeToDuration 121) += 
hrs : duration; 


125. 


(Count work hours for first day 125) = 
dow <— GetDayOfWeek(StartDate); hrs — dailyhours(dow ) — StartSeconds ; 


This code is used in section 122. 


126. 


(Count work hours for intermediate days 126) = 
Current_Time <— Time_Of (Start Year, StartMonth, StartDay , 0.0); 
Current._Time <— IncrementDay(Current_Time ); 
while =SameDay(Current_Time, EndDate) loop 
if Is WorkDay(Current_Time, NraD ) then 
dow — GetDayOfWeek(Current_Time); hrs — hrs + datlyhours (dow ); 
end if; 
Current_Time — IncrementDay (Current. Time ); 
end loop; 


This code is used in section 122. 


127. 


( Variables local to CalendarTimeToDuration 121) += 
Current_Time : Time; 


151 


CALYR BODY APPENDIX E  §128 


128. 


(Count work hours for last day 128) = 
hrs — hrs + EndSeconds ; 


This code is used in section 122. 


129. 


(Procedures and Tasks in calyr 39) += 
function SameDay(Timel , Time2 : Time )return boolean is 
(Variables local to SameDay 130) 
begin 
Split( Time1 , Year1 , Month1 , Day1 , Seconds ); 
Split( Time2 , Year2 , MOnth2 , Day2 , Seconds ); 
if (Year! = Year2) A(Month1 = Month2) A (Dayl = Day2) then 
return true; 
else 
return false; 
end if; 
end SameDay; 


130. 


( Variables local to SameDay 130) = 
Year! , Year2 : Year_Number; 
Month1 , Month2 : Month_Number; 
Day1 , Day2 : Day_Number; 
Seconds : Day_Duration; 

This code is used in section 129. 


131. 


(Procedures and Tasks in calyr 39) += 
function GetDayOfWeek( Today : Time)return DayOfWeek is 
jul : long_integer; 
Month : Month.Number; 
Day : Day_Number; 
Year : Year_Number; 
Seconds : Day_Duration; 
fdy : DayOf Week; 
begin 
Split( Today, Year, Month, Day, Seconds ); jul := julian_day(Month, Day, Year); 
fdy < DayOfWeek'val((jul +1) mod7); return fdy; 
end GetDayOfWeek: 
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132. Essentially converts hours to seconds. 


(Procedures and Tasks in calyr 39) += 
function ConvertHoursToDuration(hrs : natural )return Duration is 
dur : duration; 
begin 
dur < duration(hrs ) x 3600.0; return dur; 
end ConvertHoursToDuration; 


133. Essentially converts seconds to hours. 


(Procedures and Tasks in calyr 39) += 
function ConvertDurationToHours(dur : Duration)return natural is 
hrs : natural; 
begin 
hrs «— natural (float (dur )/3600.0); return hrs; 


end ConvertDurationToHours ; 


134. 


(Procedures and Tasks in calyr 39) += 
Procedure Split(Seconds : Day_Duration; Hour : out Hour_Number; Minute : out 
Minute_Number ; 
Second : out Second_Number) is yrsecs : Day_Duration — Seconds ; 
begin 
Hour < integer(yrsecs )/3600; yrsecs — yrsecs — Duration(Hour * 3600); 
Minute — integer(yrsecs )/60; yrsecs <— yrsecs — Duration( Minute * 60); 
Second < integer(yrsecs ); 


end Split; 


135. Prints out the date. 


mm Month number 

dd Day number in the month 

HH Hour number (24 hour system) 
MM Minute number 

SD Second number 

cc Century minus one 

yy Last 2 digits of the year number 


The month, day, year, and century may be omitted; the current values are applied as 
defaults. For example: 


date 10080045 


sets the date to Oct 8, 12:45 a.m. The current year is the default because no year is 
supplied. 
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136. This was written because there seemed to be an error in adding 86, 400.0 seconds 
to a day and then expecting the answer to come out right. Errors occured around April 


7, 1997 and October 26, 1997. I believe it is a GNAT bug for version 3.09. 


(Procedures and Tasks in calyr 39) += 

function IncrementDay( YrDate : Time )return Time is 
jul : long_integer; 
Year : Year_Number; 
Day : Day.Number; 
Month : Month_Number; 
Seconds : Day_Duration; 

begin 
Split( Yrdate , Year, Month, Day, Seconds ); jul — julian_day( Month, Day, Year); 
jul — jul +1; caldate (jul, Month, Day, Year ); 
return Time_Of (Year, Month, Day, Seconds ); 


end IncrementDay; 


154 


8137 APPENDIX E CALYR BODY 


137. 


(Procedures and Tasks in calyr 39) += 
procedure print_date (date : time) is 
( Variables local to print_date 138) 
do_alternate : boolean < true; 
begin 
Split(date, Year, Month, Day, Seconds ); 
if Month < 10 then 
put("0"); 
end if; 
put(natural(Month),1); put("/"); 
if day < 10 then 
put("0"); 
end if; 
put(natural(Day),1); put("/"); put(natural( Year ), 4); 
Split( Seconds , Hour , Minute, Second ); 
if do_alternate then 
put("+"'): 
if Hour < 10 then 
put("0"); 
end if; 
put (natural (Hour ), 1); 
else 
put("U"); 
if Hour < 10 then 
put("0"); 
end if; 
put(natural( Hour ),1); put(":"); 
if Minute < 10 then 
put("0"); 
end if; 
put(natural(Minute),1); put(":"); 
if Second < 10 then 
put("0"); 
end if; 
put (natural (Second ),1); 
end if; 


end print_date; 
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138. 


( Variables local to print_date 138) = 
Year : Year_Number; 
Month : Month_Number; 
Day : Day_Number; 
Seconds : Day_Duration; 
Hour : Hour_Number; 
Minute : Minute_Number; 
Second : Second. Number; 


This code is used in section 137. 
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139. 


(Procedures and Tasks in calyr 39) += 
procedure print_date(outfile : file_type; date : time) is 
( Variables local to fprint_date 140) 
do_alternate : boolean <— true; 
begin 
Split(date, Year , Month, Day, Seconds ); 
if Month < 10 then 
put(outfile ,"0"'); 
end if; 
put(outfile, natural(Month),1); put(outfile,"/"); 
if day < 10 then 
put (outfile ,"0"); 
end if; 
put(outfile, natural(Day),1); put(outfile,"/"); put(outfile , natural( Year ), 4); 
Split( Seconds , Hour, Minute, Second ); 
if do_alternate then 
put (outfile ,"+"); 
if Hour < 10 then 
put(outfile ,"0"); 
end if; 
put(outfile , natural( Hour), 1); 
else 
put (outfile ,"\,"); 
if Hour < 10 then 
put(outfile ,"0"); 
end if; 
put(outfile, natural(Hour),1); put(outfile,":"); 
if Minute < 10 then 
put(outfile,"0"); 
end if; 
put (outfile, natural(Minute),1); put(outfile,":"); 
if Second < 10 then 
put(outfile ,"0"); 
end if; 
put (outfile , natural (Second ),1); 
end if; 
end print_date; 
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140. 


( Variables local to fprint_.date 140) = 
Year : Year_Number; 
Month : Month_Number; 
Day : Day_Number; 
Seconds : Day_Duration; 
Hour : Hour_Number; 
Minute : Minute_Number; 
Second : Second. Number; 


This code is used in section 139. 


141. 


(Procedures and Tasks in calyr 39) += 
function get_date(infile : file.type return Time is 
( Variables local to fget_date 142) 
begin 
get(infile, ndum); Month — ndum; 
if debug2 then 
put("Monthy="); put(Month,1); put_line("."); 
end if; 
get_immediate(infile, chr); get(infile,ndum); Day — ndum; 
if debug2 then 
put("Dayy=u"); put(Day,1); put_line("."); 
end if; 
get_immediate(infile, chr); get(infile , ndum); 
if ndum < 100 then 
if ndum < 50 then 
Year — ndum + 2000; 
else 
Year «<— ndum + 1900; 
end if; 
else 
Year — ndum; 
end if; 
if debug2 then 
put("Yeary=,"); put(Year,1); put_line("."); 
end if; 
getimmediate(infile, chr); get(infile, ndum); Hour — ndum; 
return Time_Of( Year, Month, Day, ConvertHoursToDuration( Hour )); 
end get_date; 
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142. 


( Variables local to fget_date 142) = 
ndum : natural; 
chr : character; 
Year : Year_Number; 
Month : Month._Number; 
Day : Day_Number; 
Hour : natural; 


This code is used in section 141. 
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143. 


(Procedures and Tasks in calyr 39) += 
function get_date(str :in Ustring)return Time is ( Variables local to get_date 144) 
begin 
if debug2 then 
put("Parsing,string,,""); put(S(str)); putline("~."); 
end if; 
tstr <— str; get(S(tstr),ndum, Last); Month — ndum; 
if debug2 then 
put("Monthy="); put(Month,1); putline("."); 
end if; 
ind <— indez(tstr,"/"); tstr — tail(tstr, length(tstr) — ind); 
get(S(tstr), ndum, Last); Day — ndum; 
if debug2 then 
put("Dayy=u"); put(Day,1); put_line("."); 
end if; 
ind « indez(tstr,"/"); tstr — tail(tstr,length(tstr) — ind); 
get(S(tstr), ndum, Last ); 
if debug2 then 
put("Parsing, string,,°"); put(S(tstr)); put_line(""."); put("ndum,=,"); 
put(ndum,1); put_line("."); 
end if; 
if ndum < 100 then 
if ndum < 50 then 
Year — ndum + 2000; 
else 
Year <— ndum + 1900; 
end if; 
else 
Year <— ndum; 
end if; 
if debug2 then 
put("Year,,=,"); put( Year,1); put_line("."); 
end if; 
ind < indez(tstr,"+"): tstr — tail(tstr, length(tstr) — ind); 
get(S(tstr), ndum, Last); Hour — ndum; 
return Time_Of (Year, Month, Day, ConvertHoursToDuration (Hour )); 
end get_date; 
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144. 


( Variables local to get_date 144) = 
ndum : natural; 
Year : Year_Number; 
Month : Month_Number; 
Day : Day_Number ; 
Hour : natural; 
Last : positive ; 
tstr : ustring; 
ind : natural; 


This code is used in section 143. 
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145. Test Driver. This is the main routine that starts everything. 


146. 
output to file main.adb 


with Tezt_IO; 
use Tezt_IO; 
with Ada.Calendar; 
use Ada.Calendar ; 
with calyr; 
use calyr; 
with ustrings; 
use ustrings; 
with getopt; 
use getopt; 
procedure main is 
( Variables local to main 150) 
package yr_io is new integer_io( Year. Number); 
use yr_io; 
package boolio is new enumeration_to (boolean ); 
use booLio; 
begin 
(Get options 147) 
print_holidays (yr , nps ); 
end main; 


Wa. 

(Get options 147) = 
(Get year 148 } 
(Get nps 149) 


This code is used in section 146. 


148. 


(Get year 148) = 
if option_present(U("-year")) then 
get_option(U("-year"), param ); get(S(param), yr, Last ); 
else 
yr — 1997; 
end if; 


This code is used in section 147. 
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149. 
(Get nps 149) = 
if option_present(U("-nps")) then 
get_option(U("-nps"), param ); get(S(param ), nps , Last ); 
else 
nps < false; 
end if; 


This code is used in section 147. 


150. 


( Variables local to main 150) = 
yr : Year_number; 
param : Ustring; 
Last : positive ; 
nps : boolean; 


This code is used in section 146. 
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151. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


152. RCS Keywords. 


$RCSfile: calyr.aweb,v 
$Revision: 1.1 
$Date: 1997/08/18 22:43:35 
$Author: evansjr 
$Id: calyr.aweb,v 1.1 1997/08/18 22:43:35 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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INDEX 


Here is a cross-reference table for the MAIN program. All modules in which 


an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 
Ada: 9, 32, 146. 


already_leaped: 38, 42. 

Apr: 13, 59. 

Aug: 18. 

BadDay: 12, 116, 119-120. 

BadYear: 12, 95. 

booLio: 146. 

boolean: 16, 20-23, 38, 81, 101, 105, 109, 


118, 129, 137, 139, 146, 150. 

bpp: 47-48, 63. 

caldat: 57, 58-59, 61. 

caldate: 19, 88, 136. 

Calendar: 9, 146. 

CalendarTime ToDuration: 

Calyr: 40-41. 

calyr: 9, 42, 146. 

calyr.adb: 9. 

calyr.ads: 9. 

character: 142. 

chr: 141-142. 

Command_Line: 9. 

ConvertDurationToHours: 

ConvertHoursToDuration: 
141, 143. 

Current. Time: 101, 105, 109-112, 114, 
116-117, 126-127. 

dailyhours: 21-22, 109, 114, 116, 118- 
119, 125-126. 

date: 28, 70-76, 137, 139. 

day: 137, 139. 

Day: 18-19, 40-41, 44, 69, 72-76, 78, 80, 
88, 91, 93, 98-99, 102-103, 112-113, 
131, 136-144. 

Day_Duration: 27, 41, 103, 113, 121, 
130-131, 134, 136, 138, 140. 


8 
— 
ji 
OO 





26, 133. 
25, 132, 


Day._Number: 18-19, 41, 88, 93, 103, 113, 
121, 130-131, 136, 138, 140, 142, 144. 

DayofWeek: 14, 80. 

DayOfWeek: 13, 24, 44, 46, 50, 52- 
53, 62-63, 70, 80, 85-87, 103, 115, 
1 oe 

Day1: 129-130. 

Day2: 129-130. 

debug: 38. 

debugit: 20, 101. 

debug2: 38, 141, 143. 

Dec: Fis. 17> 82: 

di: 17, 39-40, 44, 69, 72-76, 78, 80, 
83-84, 87, 101-102, 105. 

do_alternate: 137, 139. 

do_nps: 16, 81. 

dow: 101, 103, 106, 119, 121, 125-126. 

dt: 56-57, 59, 61-62. 

dur: 26, 132-133. 

124, 132. 

Duration: 15, 21-22, 25-26, 109, 115, 
118, 132-134. 

DurationToCalendarTime: 21, 109. 

dw: 70-71, 74-76, 79-80. 

dy: 49, 52-53, 56, 66-67, 69-70. 

easter: 56, 59. 

edt: 56, 58. 

EndDate: 22, 118-120, 122-123, 126. 

EndDay: 119, 121. 

EndMonth: 119, 121. 

EndSeconds: 119, 121, 128. 

EndYear: 119, 121. 

enumeration_to: 146. 

Ezception: 12. 

false: 20, 38, 101, 129, 149. 


duration: 


INDEX 


fde: 
fdm: 
fdy: 
Feb: 


59, 61-62. 

63, 65-66, 70, 79, 85. 
44, 46, 62-63, 131. 
iy 42,52: 

file_type: 


28-29, 139, 141. 


fi: 49, 70, 72-73. 


float: 


fourarray: 


Fri: 


89, 91, 98-99, 133. 


12, 49, 64. 


13-14, 80. 


get: 141, 143, 148-149. 


get_date: 
get_immediate: 
get_option: 
GetDayOfWeek: 


29, 141, 148. 
141. 
148-149. 


125-126, 131. 


getopt: 


hfdm: 


hmn: 


146. 


85-87. 
40-41, 66-67, 69-70, 72-77. 


ho: 67-68, 70, 72-76. 


hol: 


Hour: 


43, 50-56, 66-67, 69-70, 72-76, 80. 
hol dy: 

hol type: 
holidays: 
27, 134, 137-144. 


Hour_Number: 


17, 39, 67, 83, 101. 
49, 50. 
35, 87. 


11, 27, 134, 138, 140. 


hrs: 21, 25, 109, 114, 122-126, 128, 
132-133. 
2: 83, 102. 


ICOL: 
IELC: 
IEST: 
IGFR: 


IGREG: 


IHAL: 


37, 54. 
37, 66. 
37, 56. 
37, 56. 
88, 90, 99-100. 
a7 


ii: 63, 66-70, 72-76, 83, 85, 87. 


image: 
IMEM: 
IMLK: 
IncrementDay: 
136. 
143-144. 


ind: 
indez: 


infile : 


82, 85, 87. 

37, 53. 

aie 

30, 110, 114, 116, 126, 


143. 


29, 141. 


24, 101, 114, 116, 119, 


int_10: 


integer : 
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38. 


11-12, 17, 36-39, 44, 48, 57, 


60-61, 63-65, 68-69, 71, 84, 91-92, 
97, 99-100, 105, 134. 


Integer: 
integer_to: 


INYD: 
IPRS: 


IVET: 


18-19, 88, 91, 93. 
38, 146. 
37, 80. 


Si, Jo 
IsWorkDay: 


20, 101, 110, 116, 119, 126. 
37, 55. 


iz: 49, 74-76, 80. 


q: 42. 


ja: 88-91, 99-100. 


JAFD: 
jalpha: 
JAN: 


Jan: 


36, 50. 
89-90. 


51. 
13, 80, 82. 


jb: 91-92. 
je: 91-92. 


JCHR: 
JCOL: 


36, 50. 
36, 50. 


jd: 91-92. 
je: 91-92. 


JELC: 
JEST: 
JFAT: 
JFLG: 
JGFR: 
JHAL: 
JIND: 


36, 50. 
36, 50. 
36, 50. 
36, 50. 
36, 50. 
36, 50. 
36, 50. 


ij: 63-64, 67, 69, 72-73, 78. 


JLAB: 


36, 50. 


jm: 96-98. 


JMEM: 
JMLK: 
JMOT: 
JNYD: 


JPRS: 
JSPT: 


JTHX : 


36, 50. 
36, 50. 
36, 50. 
36, 50. 
36, 50. 
36, 50. 
36, 50. 


jul: 44-45, 93-94, 98-99, 131, 136. 
Jul: 13. 


Julian: 


19, 88. 
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julian: 88-89. 

julian_day: 18, 44, 93, 131, 136. 

Julian_day: 19. 

uni 13. 

JVAL: 36, 50, 74. 

JVET: 36, 50. 

jy: 96-99. 

Last: 143-144, 148-150. 

Idm: 68. 

Idpm: 34, 42, 63. 

length: 143. 

long_integer: 18, 45, 89-94, 98-100, 
131, 136. 

Long_integer: 19, 88. 

main: 146. 

main.adb: 146. 

Mar: 13, 56, 59. 

May: 13, 53. 

Minute: 27, 134, 137-140. 

Minute_Number: 11, 27, 134, 138, 140. 

mn: 956-57, 59, 62. 

mon: 82, 83, 85. 

MON: 50. 

Mon: 13-14, 52-53. 

Month: 18-19, 40-41, 44, 50, 57, 63, 
69-70, 88, 91, 93, 96, 99, 102-103, 
112-113, 131, 136-144. 

month: 13, 40, 42, 62, 82-83, 85. 

Month_Number: 18-19, 33-34, 41, 88, 
93, 103, 113, 121, 130-131, 136, 138, 
140, 142, 144. 

Month1: 129-130. 

Month2: 129-130. 

MOnth2: 129. 

natural: 25-26, 33-35, 132-133, 137, 
139, 142, 144. 

ndm: 33, 42, 56, 59, 62-63, 69-70, 
78-80, 83. 

ndum: 141-144. 

new_line: 116. 

Nov: 13, 55, 66. 

nps: 38, 81, 87, 146, 149-150. 

NraD: 126. 


INDEX 


nrad: 101. 

NRaD: 20-22, 101, 109-110, 116, 
118-119. 

NumHolidays: 35. 

Oct: 13, 54-55. 

ofr: 63. 

ofrdy: 63-64, 67, 69, 72-73, 78. 

option_present: 148-149. 

outfile: 28, 139. 

param: 148-150. 

pfm: 59-60. 

pos: 42, 50, 52-53, 62-63, 70, 80, 83. 

positive: 144, 150. 

print_date: 28, 104, 116, 137, 139. 

print_holidays: 16, 81, 146. 

private: 6. 

Procedure: 27, 134. 

procedure: 6. 

protected: 6. 

put: 82-83, 85, 87, 102, 116, 137, 139, 
141, 143. 

put_line: 82-83, 85, 87, 102, 104, 141, 
143. 

SameDay: 23, 122, 126, 129. 

SAT: 50. 

Sat: 13, 70, 106, 116. 

Second: 27, 134, 137-140. 

Second.Number: 11, 27, 134, 138, 140. 

seconds: 114. 

Seconds: 27, 40-41, 102-103, 112-114, 
129-131, 134, 136-140. 

Sep: 18. 

Spht: 27, 40, 102, 112, 119, 129, 131, 
134, 136-137, 139. 

StartDate: 21-22, 109, 111-112, 118- 
120, 122-123, 125. 

StartDay: 119, 121, 126. 

StartMonth: 119, 121, 126. 

StartSeconds: 119, 121, 125. 

StartYear: 119, 121, 126. 

status: 17, 39-40, 69, 72-76, 78, 80, 
83-84, 87, 101-102, 105, 107-108. 

str: 29, 143. 








INDEX 


Strings: 32. 

62. 

50. 

13, 70, 106, 116. 


151. 


succ: 
SUN: 
Sun: 
system dependencies: 
tail: 143. 
TEXT_IO: 9. 
TeztIO: 146. 
texto: 10. 
threearray : 
THU: 50. 
Thu: 18. 
Time: 20-24, 29-30, 101, 105, 109, 111, 
118, 127, 129, 131, 136, 141, 143. 

time: 17, 28, 39, 137, 139. 
Time_Of: 126, 136, 141, 143. 
Time_of: 83, 112. 
Time1: 23, 129. 
Time2: 23, 129. 
TMonth: 91. 
Tmonth: 91-92. 
tmp: 47-48, 78. 
Today: 24, 131. 
true: 38, 42, 106, 129, 137, 139. 

116. 
143-144. 

50. 
13. 

47-48. 

96-97. 


12, 17, 39, 84, 105. 


True: 
tstr: 
TUE: 
Tue: 
t Year: 
T Year: 
Type: 15. 

ugly: 67, 69. 
Unbounded : 

UNST: 

Use: 32. 


ustring: 


32. 
63-64, 67. 


144. 

29, 35, 143, 150. 
Gera. 

ustrings: 146. 

40, 44, 85, 87, 131. 

verbose: 38, 82-83. 

Wed: 13. 
WeekDay: 


Ustring: 
Ustrings: 


val: 


14, 15. 
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wn: 49, 51-56, 66-67, 70. 
workday: 101, 104~106. 
WorkHours: 15, 21-22, 109, 118. 
Year: 18-19, 40-42, 44, 47, 51-52, 54-56, 


59, 63, 66, 88, 91, 93, 95-96, 99, 
102-103, 112~113, 131, 136—-144. 
Year_number: 150. 
Year._Number: 16, 18, 41, 59, 81, 103, 
113, 121, 130-131, 136, 138, 140, 
142, 144, 146. 


Year1: 129-130. 

Year2: 129-130. 

yhrs: 114-117. 

yr: 16, 81, 83, 146, 148, 150. 
yr_to: 146. 

YrDate: 20, 30, 101, 105, 136. 
Yrdate: 102, 104, 136. 

yrdate: 17, 39-40. 

yrday: 114-116. 

yrsecs: 134. 


8153. APPENDIX E NAMES OF THE SECTIONS 


(Assert that input dates are correct 119, 120) Used in section 118. 
(Calculate beginning date of lst pay period in year 47) Used in section 43. 
( Calculate weekday of Jan 1. 44 ) Used in section 43. 
( Check for bad year 95 ) Used in section 93. 
(Check for no more holidays 69) Used in section 67. 
( Check if leap year 42 ) Used in section 39. 

( Check if off-Friday moved back to Thursday 73) Used in section 67. 
( Compute Easter 56 ) Used in section 43. 
(Compute julian number 98) Used in section 93. 
(Compute weekday for Paschal Full Moon 62) Used in section 59. 
(Correct for to Gregorian Calendar 89) Used in section 88. 
(Count work hours for first day 125) Used in section 122. 
(Count work hours for intermediate days 126) Used in section 122. 
(Count work hours for last day 128) Used in section 122. 
(Count work hours over total span of days 122) Used in section 118. 
( December 31 a Friday the observe Saturday, January lst 80) Used in section 77. 
(December processing 77) Used in section 67. 
(Display hol.dy output 102) Used in section 101. 
( Exhaust any earlier off-Fridays 72) Used in section 67. 
(Figure out duration for same day 123) Used in section 122. 
(Figure out election day 66) Used in section 63. 
(Figure out partial day 117) Used in section 109. 
( Find last work-day 116 ) Used in section 109. 

( Find next work-day 110 ) Used in sections 109(3) and 116. 

(Get nps 149) Used in section 147. 

(Get options 147) Used in section 146. 

( Get year 148 ) Used in section 147. 

(Holiday with fixed week day or fixed date 70) Used in section 67. 
(If partial day, account for it 114) Used in section 109. 

(Is first of next year a Friday or Saturday and this is an off-Friday? 78) Used in section 77. 
(Local Procedures 59) Used in section 9. 

( Look if NraD off-Friday (or off-Thursday if Friday a holiday) 107) Used in section 101. 
( Loop over holidays and Off-Fridays 67) Used in section 39. 

(Loop through days of month 83) Used in section 82. 

(Loop through months 82) Used in section 81. 

(Make sure not a Saturday or Sunday 106) Used in sections 101, 107, and 108(2). 
(Monday/Friday extra day 75) Used in section 67. 

( Now finish computation 91) Used in section 88. 

(Package boiler-plate 9) Used in section 8. 

(Packages needed by calyr body 10,32) Used in section 9. 

( Parse date 40 ) Used in section 39. 

(Print if workday 104 ) Used in section 101. 

(Print out first day of month 85) Used in section 83. 
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(Print out holidays, as necessarily 87) Used in section 83. 

(Procedures and Tasks in calyr 39, 81, 88, 93, 101, 109, 118, 129, 131, 132, 133, 134, 136, 137, 139, 
141, 143 ) Used in section 9. 

(Remove slop 112) Used in section 109. 

(Saturday non-work holiday 76) Used in section 67. 

(See if federal holiday 108 ) Used in section 101. 

( Set month 63) Used in section 39. 

( Set year 43 ) Used in section 39. 

(Specification of procedures visible from calyr 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
29,30) Used in section 9. 

(Specification of types and variables visible from calyr 11, 12, 13, 14,15) Used in section 9. 

(Test whether to change to Gregorian Calendar 99) Used in section 93. 

(Twiddle some variables before computing 96) Used in section 93. 

(Types and Variables local to hol.dy 41, 45, 64, 68,71) Used in section 39. 

(Types and variables local to easter 60,61) Used in section 59. 

(Types local to calyr 57) Used in section 9. 

(Update Columbus Day 54) Used in section 43. 

(Update ML King Day 51 ) Used in section 43. 

(Update Memorial Day 53) Used in section 43. 

(Update President’s Day 52) Used in section 43. 

( Update Veteran’s Day 55) Used in section 43. 

( Variables local to main 150 ) Used in section 146. 

( Variables local to CalendarTimeToDuration 121,124,127) Used in section 118. 

( Variables local to DurationToCalendarTime 111, 113,115) Used in section 109. 

( Variables local to IsWorKDay 103,105) Used in section 101. 

( Variables local to Julian. Day 94, 97,100) Used in section 93. 

( Variables local to SameDay 130) Used in section 129. 

( Variables local to caldat 90,92) Used in section 88. 

( Variables local to calyr 33, 34, 35, 36, 37, 38, 46, 48, 49, 50, 58, 65) Used in section 9. 

( Variables local to fget_date 142) Used in section 141. 

( Variables local to fprint_date 140 ) Used in section 139. 

( Variables local to get_date 144) Used in section 143. 

( Variables local to print_date 138) Used in section 137. 

( Variables local to print_holidays 84,86) Used in section 81. 

( Weekday of December 31 79 ) Used in section 77. 

( Work, and normal and Sunday non-work, holiday 74) Used in section 67. 
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Probability Functions 


[Ada ’?95—Version 1.0] 
September 4, 1997 
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§ APPENDIX F INTRODUCTION 


1. Introduction. Here is the Ada code for routines used in calculating probaility 
distributions. This code uses Donald Knuth’s WEB format for literate programming. To 
compile and link the code in its present format you will need the Ada version of the WEB 
tool. 

It is available on-line via the world-wide-web at URL: 


http://white.nosc.mil/~evansjr/literate/ 


2. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
see the paper Literate Programming, by Donald Knuth in The Computer Journal, Vol 27, 
No. 2, 1984; or the book Weaving a Program: Literate Programming in WEB by Wayne 
Sewell, Van Nostrand Reinhold, 1989. Another good source of information is the Usenet 
group comp.programming.literate. It has information on new tools and Frequently Asked 


Questions (FAQs). 


3. The program consists of several packages that are declared right now; each of these 
packages and either the specification and the body of the packages are sent to a separate 
file. The main program itself is declared later. (Since the original AWEB package was 
written for Ada ’83, it does not properly format new Ada ’95 keywords protected and 
private . We remedy using the web format commands below. 


format protected = procedure 
format private = procedure 


4. Asa way of explanation, each “Module” withing angle brackets (< >) is expanded 
somewhere further down in the document. The trailing number you see within the brackets 
is where you can find this expansion. You can treat the modules names as a PDL (Program 
Descriptor Language), a highly recommened way of writing and documenting code. 


( Package boiler-plate 5) 
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5. Probability Primitives. 


( Package boiler-plate 5) = 
output to file probability.ads 
(Needed packages 6) 
package probability is 
(Specification of types and variables visible from probability 7) 
(Specification of procedures visible from probability 8) 
end probability ; 
output to file probability.adb 
package body probability is 
(Variables local to probability 10) 
(Procedures and Tasks in probability 11) 
end probability ; 


This code is used in section 4. 


6. Here is the specification for generics. 
( Needed packages 6) = 

with Ada.Numerics.Float_Random ; 
See also section 12. 


This code is used in section 5. 


a 


(Specification of types and variables visible from probability 7) = 
type bool_array is array (integer range <>) of boolean; 


This code is used in section 5. 


8. 


(Specification of procedures visible from probability 8) = 
function Uniform(Low , High : Float )return float; 
function Uniform(Low , High : Natural)return Natural; 
procedure sample(M,N :in natural; yrsample : out bool_array ); 


This code is used in section 5. 
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9. Probability functions Body. 


10. 


( Variables local to probability 10) = 
debug : boolean <— false; 
FirstTime : boolean < true; 


This code is used in section 5. 


11. 


(Procedures and Tasks in probability 11) = 
function Uniform(Low , High : Float )return float is 
use Ada.Numerics.Float_Random; 
P1 : Uniformly_Distributed ; 
G : Generator; 
answer : float; 
tmp : float ; 
begin 
Reset(G); P1 — Random(G); tmp < (High — Low); answer — tmp *(P1)+ Low; 
return answer; 
end Uniform; 
See also sections 13 and 14. 


This code is used in section 5. 


2s 


( Needed packages 6) += 
with TeztlIO; 
use Tezt_IO; 


is 
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13. 


(Procedures and Tasks in probability 11) += 
function Uniform(Low, High : natural )return natural is 
use Ada.Numerics.Float_Random ; 
P1 : Uniformly_Distributed ; 
G : Generator; 
tmp ,tmp2 : float; 
answer : natural; 
package flt_io is new float_io (float ); 
use fit_io; 
begin 
if Low = High then 
answer < Low; 
else 
if FirstTime then 
Reset(G,68069); FirstTime — false; 
else 
Reset(G); 
end if; 


P1 — Random(G); tmp < float( High — Low +1); tmp2 <— (tmp « P1)—0.5; 


if (debug) then 
put("Random,generated,,"); put(P1); put_line("."); 
put("(high-low+t1),,tmp,=,,"); put(tmp); put_line("..,"); 
put("(tmp*p1),tmp2,=,"); put(tmp2); put_line("..,"); 
end if; 
answer <— natural(tmp2 ) + Low; 
end if; 
return answer; 
end Uniform; 
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14. Based on a routine from the September, 1987 Communications of the ACM. 


(Procedures and Tasks in probability 11) += 
procedure sample(M, WN :in natural; yrsample : out bool_array ) is 
t: natural; 
k : natural; 
begin 
for7€1..N loop 
yrsample(j) <— false; 
end loop; 
k+-N-M+1; 
for; E€k..N loop 
t — uniform(1,7); 
if yrsample(t) then 
yrsample(j) <— true; 
else 
yrsample(t) — true; 
end if; 
end loop; 
end sample; 
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15. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


16. RCS Keywords. 


$RCSfile: probability.aweb,v 
$Revision: 1.1 
$Date: 1997/08/03 21:35:14 
$Author: evansjr 
$Id: probability.aweb,v 1.1 1997/08/03 21:35:14 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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17. Index. Here is a cross-reference table for the MAIN program. All modules in which 
an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


Ada: 6, 11, 13. imp2: 183. 

answer: 11, 13. true: 10, 14. 

bool_array: 7, 8, 14. uniform: 14. 

boolean: 7, 10. Uniform: 8, 11, 13. 

debug: 10, 13. Uniformly_Distributed: 11, 13. 
false: 10, 13-14. yrsample: 8, 14. 


FirstTime: 10, 13. 
figat: 8, 11, 13. 
Float: 8, 11. 
float_to: 13. 
Float_Random: 6, 11, 13. 
fit.io: 18. 
Generator: 11, 13. 
High: 8, 11, 18. 
integer: 7. 

g: 14. 

Low: 8, 11, 13. 
natural: 8, 13-14. 
Natural: 8. 
Numerics: 6, 11, 13. 
private: 3. 
probability: 5. 
probability.adb: 5. 
probability.ads: 5. 
procedure: 3. 
protected: 3. 


pu: 13. 
putline: 13. 
fae «611, 13. 


Random: 11, 13. 

Reset: 11, 13. 

sample: 8, 14. 

system dependencies: 15. 
TeztJIO: 12. 

tmp: 11, 13. 
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(Needed packages 6,12) Used in section 5. 

(Package boiler-plate 5) Used in section 4. 

(Procedures and Tasks in probability 11, 13,14) Used in section 5. 

(Specification of procedures visible from probability 8) Used in section 5. 
(Specification of types and variables visible from probability 7) Used in section 5. 
(Variables local to probability 10) Used in section 5. 
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getopt 
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§ APPENDIX G INTRODUCTION 


1. Introduction. This package provides some primitive command-line processing typ- 
ical of Unix commands. 


2. This code is written using Donald Knuth’s WEB paradigm for literate programming. 
To compile and link the code in its present format you will need the Ada version of the 
WEB tool. 

It is available on-line via the world-wide-web at URL: 


http://white.nosc.mil/~evansjr/literate/ 
- p 


3. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
see the paper Literate Programming, by Donald Knuth in The Computer Journal, Vol 27, 
No. 2, 1984; or the book Weaving a Program: Literate Programming in WEB by Wayne 
Sewell, Van Nostrand Reinhold, 1989. Another good source of information is the Usenet 
group comp.programming. literate. It has information on new tools and Frequently Asked 


Questions (FAQs). 


4. The program consists of several packages that are declared right now; each of these 
packages and either the specification and the body of the packages are sent to a separate 
file. —The main program itself is declared later. (Since the original AWEB package was 
written for Ada ’83, it does not properly format new Ada ’95 keywords protected and 
private . We remedy using the web format commands below. 


format protected = procedure 
format private = procedure 


5. Asa way of explanation, each “Module” withing angle brackets (< >) is expanded 
somewhere further down in the document. Consider it a high-level PDL (Program De- 
scriptor Language). The trailing number you see within the brackets is where you can find 
this expansion. It is top-down in appearance, and in actual fact. 


6. All the modules follow the same, top-down format. I will group all the boiler-plate into 
one module, for the compiler, but you will see it with the packages, as they are described. 


( Package boiler-plate 7 ) 
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7. Getopt Specification. 


( Package boiler-plate 7) = 

output to file getopt.ads 

with Ustrings; 

use Ustrings; 

with TEXT_IO; 

use TEXT_IO; 

with Ada.Command_Line; 

use Ada.Command_Line; 

package getopt is 
(Specification of types and variables visible from getopt 8) 
(Specification of procedures visible from getopt 9) 

end getopt; 

output to file getopt .adb 


(Packages needed by getopt body 11) 
package body getopt is 
(Variables local to getopt 12) 
(Procedures and Tasks in getopt 13) 
end getopt; 


This code is used in section 6. 


8. 
(Specification of types and variables visible from getopt 8) = 


This code 1s used in section 7. 


9. 


(Specification of procedures visible from getopt 9) = 
function option_present( option : in Ustring )return boolean; 
function name_present(Num : natural)return boolean; 
procedure get_option( option : in Ustring; param : out Ustring); 
procedure get_name(name : out Ustring; Num : in natural); 


This code is used in section 7. 


184 


§10 APPENDIX G GETOPT BODY 
10. GetOpt Body. 


11. 


(Packages needed by getopt body 11) = 


with Ada.Strings.Unbounded; Use Ada.Strings.Unbounded; with Ustrings; 
use Ustrings; 


This code is used in section 7. 


12. 


( Variables local to getopt 12) = 
debug : boolean <— false; 


This code is used in section 7. 


13. 


(Procedures and Tasks in getopt 13) = 
package natio is new integer_io (natural ); 
See also sections 14, 15, 16, and 19. 


This code is used in section 7. 


14. 


(Procedures and Tasks in getopt 13) += 
function option_present(option :in Ustring )return boolean is 
knt : natural; 
ispresent : boolean; 
begin 
knt — Argument_Count; ispresent <— false; 
fori €1..knt loop 
if S(option) = Argument(i) then 
ispresent <— true; exit; 
end if; 
end loop; 
return ispresent ; 
end option_present; 
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15. 


(Procedures and Tasks in getopt 13) += 
procedure get_option(option : in Ustring; param : out Ustring) is 
knt : natural; 
begin 
knt — Argument_Count; 
fori €1..knt loop 
if S(option) = Argument(z) then 
param <— U(Argument(z + 1)); 
end if; 
end loop; 
end get_option; 


16. 


( Procedures and Tasks in getopt 13) += 
function name_present( Num : natural )return boolean is 
knt,ic : natural; 
1: natural — 1; 
fknt : natural — 0; 
ispresent : boolean; 
begin 
ispresent < false; 
if debug then 
put_line("name_present>"); 
end if; 
knt — Argument_Count; 
while (2 < knt) loop 
(If found option, skip it and its parameter 17) 
(if not option, must be name, return true if right number 18) 
end loop; 
if debug then 
put("Argument,,"); natio.put(Num, 1); 
if ispresent then 
put_line("isypresent."); 
else 
put_line(",is, NOT present." ); 
end if; 
end if; 
return ispresent; 
end name_present; 
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17. 


(If found option, skip it and its parameter 17) = 

ic < Indez(U(Argument(z)),"-"); 

if ic > 0 then 
1242; 

end if; 

if debug then 
put_line("Skipping,first,option."); 

end if; 


This code is used in sections 16 and 19. 


18. 


(if not option, must be name, return true if right number 18) = 
if ic = 0 then 
fknt — fknt +1; 
if fkni = num then 
if debug then 
put_line ("Found your,input, file, mame ); 
end if; 
ispresent <— true; exit; 
end if; 
127+]; 
end if; 


This code is used in section 16. 


19. 


(Procedures and Tasks in getopt 13) += 
procedure get_name(name : out Ustring; Num : natural) is 
knt,ic : natural; 
1: natural — 1; 
fknt : natural — 0; 
begin 
if debug then 
put_line("get_name>"); 
end if; 
knt <— Argument_Count; 
while (zi < knt) loop 
(If found option, skip it and its parameter 17) 
(if not option, must be name, return if right number 20) 
end loop; 
end get_name; 
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20. 


(if not option, must be name, return if right number 20) = 
if 1c = 0 then 
fknt — fknt + 1; 
if fknt = num then 
if debug then 
put_line("Found,,your,input,file,name!"); 
end if; 
name «- U(Argument(i)); exit; 
end if; 
1<it+l; 
end if; 


This code is used in section 19. 
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21. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


22. RCS Keywords. 


$RCSfile: getopt.aweb,v 
$Revision: 1.1 
$Date: 1997/09/05 00:28:36 
$Author: evansjr 
$Id: getopt.aweb,v 1.1 1997/09/05 00:28:36 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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23. Index. Here is a cross-reference table for the MAIN program. All modules in which 
an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


Ada: 7, 11. TE Mal@: > 7. 
Argument: 14-15, 17, 20. true: 14, 18. 
Argument_Count: 14-16, 19. Unbounded: 11. 
boolean: 9, 12, 14, 16. Use: 11. 
Command_Line: 7. Ustring: 9, 14-15, 19. 
debug: 12, 16-20. Ustrings: 7, 11. 


false: 12, 14, 16. 
fknt: 16, 18-20. 
get_name: Q, 19. 
get_option: 9, 15. 
getopt: 7. 

getopt.adb: 7. 
getopt.ads: 7. 


az: 14, 15. 
wc: 16-20. 
Indez: 17. 


integer_io: 13. 
wspresent: 14, 16, 18. 
knt: 14-16, 19. 
name: 9, 19-20. 
name_present: 9, 16. 
natio: 13, 16. 
natural: 9, 13-16, 19. 
num: 18, 20. 

Num: 9, 16, 19. 
option: 9, 14-15. 
option_present: 9, 14. 
param: 9Q, 15. 
private: 4. 
procedure: 4. 
protected: 4. 


put: 16. 
putline: 16-20. 
Strings: 11. 


system dependencies: 21. 
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(If found option, skip it and its parameter 17) Used in sections 16 and 19. 
(Package boiler-plate 7) Used in section 6. 

(Packages needed by getopt body 11) Used in section 7. 

(Procedures and Tasks in getopt 13, 14, 15, 16,19) Used in section 7. 
(Specification of procedures visible from getopt 9) Used in section 7. 
(Specification of types and variables visible from getopt 8) Used in section 7. 
(Variables local to getopt 12) Used in section 7. 

(if not option, must be name, return if right number 20) Used in section 19. 

(if not option, must be name, return true if right number 18) Used in section 16. 
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§ APPENDIX H INTRODUCTION 


1. Introduction. Here is some code to test capabilities. It is written using Donald 
Knuth’s WEB format for literate programming. To compile and link the code in its present 
format you will need the Ada version of the WEB tool. 

It is available on-line via the world-wide-web at URL: 


http: //white.nosc.mil/~evansjr /literate/ 


2. WEB is a literate programming paradigm for C, Pascal or Ada, and other languages. 
This style of programming is called “Literate Programming.” For Further information 
get the book Literate Programming, by Donald Knuth, published by the Center for the 
Study of Language and Information, Stanford University, 1992. Another good source of 
information is the Usenet group comp.programming.literate. It has information on tools 
and answers to Frequently Asked Questions (FAQs). 


3. Who should use the WEB paradigm for programming? Well, not everybody. Here are 
a few paragraphs from Donald Knuth’s book that explains it best. 


4. Retrospect and Prospects. Enthusiastic reports about new computer languages, 
by the authors of those languages, are commonplace. Hence I’m well aware of the 
fact that my own experiences cannot be extrapolated too far. I also realize that, 
whenever | have encountered a problem with WEB, I’ve simply changed the system; 
other users of WEB cannot operate under the same ground rules. 


5. However, I believe that I have stumbled on a way of programming that produces 
better programs that are more portable and more easily understood and maintained 
than ever before; furthermore, the system seems to work with large programs as 
well as with small ones. I’m pleased that my work on typography, which began as 
an application of computers to another field, has come full circle and become an 
application of typography to the heart of computer science; I like to think of WEB as 
a neat “spinoff” of my research on TRX. However, all of my experiences with this 
system have been highly colored by my own tastes, and only time will tell if a large 
number of other people will find WEB to be equally attractive and useful. 
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6. I made a conscious decision not to design a language that would be suitable for 
everybody. My goal was to provide a tool for system programmers, not for high 
school students or for hobbyists. I don’t have anything against high school students 
and hobbyists, but I don’t believe every computer language should attempt to offer 
all things to all people. A user of WEB needs to be good enough at computer science 
that he or she is comfortable dealing with several languates simultaneously. Since 
WEB combines TX and Pascal with a few rules of its own, WEB programs can contain 
WEB syntax errors. TX syntax errors, Pascal syntax errors, and algorithmic errors; 
in practice, all four types of errors occur, and a bit of sophistication is needed to 
sort out which is which. Computer specialists tend to be better at such things than 
other people. I have found that WEB programs can be debugged rapidly in spite of 
the profusion of languages, but I’m sure that many other intelligent people will find 


such a task difficult. 


t; In other words, WEB seems to be specifically for the peculiar breed of people who 
are called computer scientists. And I’m pretty sure that there are also a lot of 
computer scientists who will not enjoy using WEB; some of us are glad that tradi- 
tional programming languages have comparatively primitive capabilities for inserted 
comments, because such difficulties provide a good excuse for not documenting pro- 
grams well. Thus, WEB may be only for the subset of computer scientists who like 
to write and to explain what they are doing. My hope is that the ability to make 
explanations more natural will cause more programmers to discover the joys of lit- 
erate programming, because [| believe it’s quite a pleasure to combine verbal and 
mathematical skills; but perhaps I’m hoping for too much. The fact that a least 
one paper has been written that is a syntactically correct ALGOL 68 program en- 
courages me to perservere in my hopes for the future. Perhaps we will even one day 
find Pulitzer prizes awarded to computer programs. 


8. Donald Knuth goes on to write about his hopes for the future of WEB programming. 
In an interview with Donald Knuth by Amazon Books on the release of a new edition of 
Volume 1 of The Art of Computer Programming (July 1, 1997) he was asked: 


Amazon.com: What do you see as the most 


interesting advance in programming since you 
published the first edition? 


Donald Knuth: It’s what I call literate 
programming, a technique for writing, documenting, 
and maintaining programs using a high-level 
language combined with a written language like 
English. This is discussed in my book Literate 
Programming. 
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9. Inthe same book, Literate Programming, there is a chapter called How to read a WEB. 
But it is actually quite straightforward. 


10. Very briefly, each “Module” within angle brackets (< >) is expanded somewhere 
further down in the document. The trailing number you see within the brackets is where 
you can find this expansion. This provides a type of PDL (program descriptor language) 
for your program and greatly aids modularity and readability. It is also a highly effective 
method of top-down programming. The first module here is expanded further down, and 
contains most of the structure in standard Ada packages. 


(Package boiler-plate 11) 
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11. Capabilities specification. 


( Package boiler-plate 11) = 
output to file capability.ads 


with TEXT_IO; 
use TEXT_IO; 
with test_io_pkq; 
use test_10_pkqg; 
with generic_set_pkg; 
with generic_map_pkg; 
with ustrings ; 
use ustrings; 
package capability is 
(Specification of types and variables visible from capability 12) 
(Specification of procedures visible from capability 14) 
private 
(Specification of private types in capability 21) 
end capability ; 
output to file capability.adb 


with unchecked_deallocation; 
with generic_map_pkg; 
with Ada.Strings.Unbounded; Use Ada.Strings.Unbounded; with Ustrings; 
use ustrings; 
with Ada.Strings; 
use Ada.strings: 
with Ada.Characters .handling ; 
use Ada.Characters .handling; 
package body capability is 
{ Variables and types local to capability 23 ) 
(Procedures and Tasks in capability 28 ) 
begin 
(Initialize capabilities 42 ) 
end capability ; 


This code is used in section 10. 


12. 


(Specification of types and variables visible from capability 12) = 

type develnum is private; 

type AString is access String; 

type EzpertiseLevel is (low, medium, high); 

package cap_map is new generic_map_pkg(key = Astring, result => EzpertiseLevel); 
See also section 13. 


This code is used in section 11. 


198 


§13 APPENDIX H CAPABILITIES SPECIFICATION 


13. 


(Specification of types and variables visible from capability 12) += 
badid : exception; 
parsecapabilityerror : exception; 


14. 


(Specification of procedures visible from capability 14) = 
procedure create_developer (developer :in String; yrid : out natural); 
See also sections 15, 16, 17, 18, 19, and 20. 


This code is used in section 11. 


15. 


(Specification of procedures visible from capability 14) += 
procedure add_capability (id :in natural; yrcap : String; exp : ExpertiseLevel); 
procedure add_capability(yrid : in develnum; yrcap : cap_map.map); 
procedure add_capability(yrtask : in out cap_map.map; yrcap : String; 
exp : EzpertiseLevel ); 


16. 


(Specification of procedures visible from capability 14) += 
procedure copy capability (yrid : in natural; yrcap : out cap_map.map); 


17. 


(Specification of procedures visible from capability 14) += 
procedure print_capabilities (id : natural); 
procedure print_capabilities (yrtask : cap_map.map ); 
procedure print_capabilities (fd : filetype; yrtask : cap.map.map); 
procedure print_developers ; 
function get_developer_name(id : natural )return ustring; 


18. 


(Specification of procedures visible from capability 14) += 
function is_qualified(yrtask : cap-map.map;id : natural )return boolean ; 


19. 


(Specification of procedures visible from capability 14) += 
procedure get_capability(str : in String; yrcap : out cap_map.map ); 
procedure get_capability (fd : filetype; yrcap : out cap_map.map); 
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20. 


Specification of procedures visible from capability 14) += 
p 

procedure get_developers (infile : string); 

function get_num_developers return natural; 


21. 
(Specification of private types in capability 21) = 
package cap_set is new generic_set_pkg(Astring ); 
type capability is new cap_set.set; 
maz_developers : constant natural <— 20; 
type develnum is new natural range 1 .. maz_developers ; 


This code is used in section 11. 
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22. Capability Body. 


23. 


(Variables and types local to capability 23) = 
debug : boolean < false; 
debug2 : boolean <— false; 
gstring : Ustring; 

See also sections 24, 25, 26, and 27. 


This code is used in section 11. 


24. Maintain a global set of capabilities; 


( Variables and types local to capability 23) += 
globalcaps : cap_set.set; 
total developers : natural <— 0; 


25. Creating new step. 


( Variables and types local to capability 23) += 
function "+"(sér : string)return Astring is 
begin 

return new string'(str); 
end ar 


26. 


( Variables and types local to capability 23) += 
MAXCAPS : constant natural — 30; 
type cap_num is new natural range 1.. MAXCAPS; 
type cap_array is array (cap_num) of Astring; 
capabilities : cap_array « (+"Ada",+"Database", +"XWindows",+"Graphics", 
+"Unix",others => null); 
mycaps : cap_set.set; 
totaLcaps : cap_num <5; 


27. 


( Variables and types local to capability 23) += 
type cap_rec 1s 
record 
inuse : boolean < false; 
name : Astring; 
cmap : cap_map.map; 
end record; 
type developer_array is array (develnum) of cap_rec; 
developers : developer_array ; 
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28. 


(Procedures and Tasks in capability 28) = 
procedure create_developer(developer :in String; yrid : out natural) is 
knt : deveLnum; 
tmpcap : cap_map.map; 
begin 
(Fetch an unused developer 29) 
( Assign capabilities to him 30) 
(Create capability out of his name 31) 
end create_developer ; 
See also sections 33, 34, 35, 41, 44, 45, 46, 47, 48, 49, 50, 52, 62, 63, and 69. 


This code is used in section 11. 


29. 


(Fetch an unused developer 29) = 
knt — 1; 
while developers(knt).inuse loop 
knt — knt +1; 
end loop; 
developers(knt).inuse < true; total developers — total developers + 1; 
yrid <— natural(knt); 


This code is used in section 28. 


30. 
( Assign capabilities to him 30) = 
C{for:€1.. totaLcaps loop 
cap_map .bind (capabilities (2), low, developers (knt).cmap); 
end loop; 
o} 


This code is used in section 28. 


31. 


(Create capability out of his name 31) = 
total caps <— total.caps + 1; capabilities (total caps ) — +developer; 
cap_map .bind( capabilities (total caps ), high , developers (knt).cmap); 
cap_set .add( capabilities (total caps ), globalcaps ); 
developers(knt).name < capabilities (total caps ); 
(Add this capability to all the other developers 32) 
if debug then 
print_developers : 
end if; 


This code is used in section 28. 
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32. 


( Add this capability to all the other developers 32) = 
@{for 1 € devel num loop 
if (developers (1).inuse) A (1 # zd) then 
if debug2 then 
put("Adding,capability,,"); put(developer); put("\to,developer,,"); 
put(developers(i).name.all); put_line("..,"); 
end if; 
cap_map .bind (capabilities (total. caps ), low , developers (z).cmap ); 
end if; 
end loop; 


©} 


This code is used in section 31. 


33. 


(Procedures and Tasks in capability 28) += 
procedure add_capability (yrtask :in out cap_map.map; yrcap : String; 
exp : EzpertiseLevel ) is 
acap : Astring; 
1s_member : boolean; 
knt : cap_num; 
begin 
(First convert to upper-case 37 )( See if already in capabilities array 38 ) 
if -=zs_member then 
total caps «~ total caps + 1; capabilities (total_caps ) — acap; 
cap_set .add (capabilities (total. caps’), globalcaps ); knt — total.caps; 
end if; 
cap_map .bind (capabilities (knt ), exp, yrtask ); 
end add_capability ; 
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34. 


(Procedures and Tasks in capability 28) += 
procedure add_capability(yrid : in devel num; yrcap : cap_map.map ) 1s 
exp1 : ExpertiseLevel; 
td : natural; 
begin 
id — natural (yrid ); 
fori €1.. total. caps loop 
if cap_map.member( capabilities (1), yrcap ) then 
exp1 «— cap_map.fetch(yrcap , capabilities (2)); 
add_capability (1d, capabilities (z).all, exp! ); 
end if; 
end loop; 
end add_capability ; 


35. 


(Procedures and Tasks in capability 28) += 
procedure add_capability (id :in natural; yrcap : String; exp : EzpertiseLevel ) is 
acap : Astring; 
is_member : boolean; 
knt : cap_num; 
yrid : deveLnum; 
package enum_io is new enumeration_io(EzpertiseLevel ); 
begin 
yrid < devel num(id ); 
if —developers(yrid).inuse then 
raise badid; 
end if; 
(First convert to upper-case 37 )(See if already in capabilities array 38 ) 
if -is_member then 
total.caps < total caps +1; capabilities (total. caps ) — acap; 
cap_set.add( capabilities (total_caps ), globalcaps ); ( Add to all developers 40 ) 
else 
(Update capabilities of this developer 39 ) 
end if; 
end add_capability ; 
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36. 


(Convert to upper-case 36) = 
declare 
tstr : string <— yrcap; 
name : ustring; 
begin 
name < get_developer_name(natural(yrid )); 
if tstr # S(name) then 
for 7€1.. yrcap'length loop 
tstr(j) <— to_upper(tstr(7)); 
end loop; 
end if; 
acap < +tstr; 
end; 


37. 


(First convert to upper-case 37) = 
declare 
tstr : string <— yrcap; 
begin 
for 7 €1.. yrcap'length loop 
tstr(7) <— to_upper(tstr(7)); 
end loop; 
acap <— +tstr; 
end; 


This code is used in sections 33 and 35. 


38. 


(See if already in capabilities array 38) = 
is.member <— false; 
for1€1.. totalcaps loop 
if (capabilities (z).all = acap.all) then 
acap < capabilities (1); knt — i; is.member < true; exit; 
end if; 
end loop; 


This code is used in sections 33 and 35. 
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39. 


(Update capabilities of this developer 39) = 
if debug then 
put("Updating,capabilities,of,developer:,,"); 
put(S(get_developer_name(natural(yrid)))); put("uu"); put (capabilities (knt).all); 
put("u=>U"); enum_io.put(ezp); new_line; 
end if; 
cap_map .bind( capabilities (knt), exp, developers (yrid ).cmap ); 


This code is used in section 35. 


40. 
( Add to all developers 40) = 


for 2 € devel num loop 
if (c ~ yrid) then 
if (developers (z).inuse ) then 
cap.map .bind( capabilities (total caps ), low , developers (z).cmap ); 
end if; 
else 
cap_map .bind (capabilities (total caps ), exp , developers (z).cmap ); 
end if; 
end loop; 


This code is used in section 35. 


41. Copy everything but developer’s name. 


(Procedures and Tasks in capability 28) += 
procedure copy_capability(yrid : in natural; yrcap : out cap_map.map) is 
ezp1 : EzpertiseLevel; 
yr : deveLnum; 
namel,name2 : ustring; 
begin 
yr <— develnum(yrid ); 
forz€1.. totaLcaps loop 
if cap_map.member( capabilities (2), developers(yr).cmap) then 
name1l < U(capabilities(z).all); name2 — get_developer_name(yrid ); 
if namel # name? then 
exzp1 <— cap_map.fetch( developers (yr ).cmap, capabilities (2)); 
add_capability ( yrcap , capabilities (z).all, exp/ ); 
end if; 
end if; 
end loop; 
end copy_capability ; 
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42. 
(Initialize capabilities 42) = 
cap_set .empty(globalcaps ); 
fori€1..totalcaps loop 
(Convert to uppercase 43 ) 
capabilities (1) — +S(gstring); cap_set.add (capabilities (i), globalcaps ); 
end loop; 


This code is used in section 11. 


43. 


(Convert to uppercase 43) = 

declare 
tstr : String — capabilities (7).all; 
chr : Character; 

begin 
for 7€1.. tstr'length loop 

chr <— tstr(7); tstr(j) — to_upper(chr); 

end loop; 
gstring — U(tstr); 

end; 


This code is used in section 42. 
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44. 


(Procedures and Tasks in capability 28) += 
function is_qualified(yrtask : cap_map.map;id : natural )return boolean is 
ezp1 ,ezp2 : EzpertiseLevel; 
answer : boolean < true; 
yrid : deveLnum; 
begin 
yrid <— devel num/(id ); 
fori €1..totalcaps loop 
if cap_map.member(capabilit i),y: ) then 
exzp1 < cap_map.fetch(yrtask , capabilzties (2)); 
if cap_map .member( capabilities (1), developers (yrid).cmap) then 
ezp2 <— cap_map .fetch(developers (yrid ).cmap, capabilities (1)); 
else 
ezp2 < low; 
end if; 
if ezp2 < ezp1 then 
answer < false; exit; 
end if; 
end if; 
end loop; 
return answer; 
end 1s_qualified ; 
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45. 
(Procedures and Tasks in capability 28) += 
procedure print_capabilities(yrtask : cap_map.map ) is 


exp : Ezpertiselevel; 
package ezp_io is new enumeration_io (Ezpertiselevel ); 
uSe ezp_i0; 
knt1,knt2 : cap_num; 
begin 
knt1 —1; knt2 —1; 
fori €1..totalcaps loop 
if cap_map.member (capabilities (1), yrtask) then 


knt1 — knt1 +1; 
end if; 
end loop; 


put("{"); 
fori €1.. total caps loop 
if cap_map .member (capabilities (2), yrtask) then 


put( capabilities (2).all); put(":u"); exp — cap_map.fetch(yrtask , capabilities (1)); 
put(ezp); knt2 — knt2 +1; 
if knt2 < knt1 then 
put(" paige ; 
end if; 
end if; 
end loop; 
put("}"); 
end print_capabilities ; 
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46. 
(Procedures and Tasks in capability 28) += 
procedure print_capabilities (fd : filetype; yrtask : cap_map.map ) is 


exp : Ezpertiselevel ; 
package ezp_io is new enumeration_io(Ezpertiselevel ); 
use ezp_i0; 
knt1,knt2 : cap_num; 
begin 
knt1 —1; knt2 — 1; 
for1€1.. total caps loop 
if cap_map.member (capabilities (1), yrtask ) then 
knt1 — knt1 +1; 
end if; 
end loop; 
put (fd, tite): 
fori €1..totalcaps loop 
if cap_map.member( capabilities (2), yrtask ) then 
put(fd, capabilities (z).all); put(fd,":"); 
exp < cap_map .fetch(yrtask, capabilities (z)); put(fd,ezp); knt2 — knt2 +1; 
if knt2 < knt1 then 
put(fd,",u"); 
end if; 
end if; 
end loop; 
put(fd, Et) 
end print_capabilities ; 
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47. 
(Procedures and Tasks in capability 28) += 
procedure print_capabilities (id : natural ) is 
exp : Ezpertiselevel; 
package ezp_io is new enumeration_io(Ezpertiselevel); 
use €zp_10; 
knt1 ,knt2 : cap_num; 
yrid : devel num; 
begin 
yrid — devel num(id); knt1 —1; knt2 —1; 
fori €1..totalcaps loop 
if cap_map.member (capabilities (2), developers (yrid ).cmap ) then 
knt1 — knt1 +1; 
end if; 
end loop; 
put("{"'); 
fori €1..total.caps loop 
if cap_map.member ( capabilities (2), developers (yrid ).cmap ) then 
put(capabilities(z).all); put(":u"); 
exp < cap_map.fetch(developers(yrid).cmap, capabilities (1)); put(ezp); 
knt2 — knt2 +1; 
if knt2 < knti then 
put(" yu" 
end if; 
end if; 
end loop; 
put("}"); 
end print_capabilities ; 


48. 


(Procedures and Tasks in capability 28) += 
procedure print_developers is 
name : ustring; 
begin 
fori €1.. total. developers loop 
name <— get_developer_name(1); put(S(name)); put(">y"); print_capabilities (2); 
new_line: 
end loop; 
end print_developers ; 
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49. 


(Procedures and Tasks in capability 28) += 
function get_developer_name(id : natural )return ustring is 
yrid : deveLnum; 
begin 
yrid <— develnum(id); return U(developers(yrid ).name.all); 
end get_developer_name; 


50. 


(Procedures and Tasks in capability 28) += 
procedure get_capability (fd : filetype; yrcap : out cap_map.map ) is 
( Variables local to fget_capability 51) 
begin 
chr — °;°; 
while chr # “{° loop 
get_immediate (fd, chr); 
end loop; 
31; newstr(7) — “L'; 
while chr #4 “}° loop 
341; getimmediate(fd, chr); newstr(7) — chr; 
end loop; 
declare 
newstr2 : String(1 .. 7); 
begin 
fork €1..7 loop 
newstr2(k) — newstr(k); 
end loop; 
tstr — U(newstr? ); 
end; 
if debug then 
put("get_capabilities,,(file)> calling, get_capabilities,,(string) with"); 
put("ystringy=,"); put(S(tstr)); new_line; 
end if; 
get_capability (S(tstr ), yrcap ); 
end get_capability ; 


ol. 


(Variables local to fget_capability 51) = 
7: positive ; 
chr : character; 
newstr : String(1 .. 80); 
tstr : ustring; 


This code is used in section 50. 
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52. 


(Procedures and Tasks in capability 28) += 
procedure get_capability (str : in String; yrcap : out cap_map.map ) 1s ( Variables local 
to get_capability 53) 
begin 

tstr — U(str); ind1 <— indez(tstr,"{"); ind2 — indez(tstr,"}"); 

tstr — U(slice(tstr, ind! , ind2 )); 

if debug2 then 
put("Parsingystring,,°"); put(S(tstr)); put_line(""."); 

end if; 

tstr — tail(tstr, length(tstr) — ind1 ); finished — false; while —finished loop 

(Get capability name pairs 54) end loop; end get_capability ; 


53. 


( Variables local to get_capability 53) = 
tstr : ustring; 
ind1 : natural; 
finished : boolean; 

See also sections 56, 58, and 60. 


This code is used in section 52. 


04. 
(Get capability name pairs 54) = 
( Check if finished 55 ) 
if sfinished then 
( Get capability 57)(Get EzpertiseLevel 59)( Add new capability to map 61) 
end if; 
This code is used in section 52. 


55. Each name pair is separated by a colon 
(Provided we didn’t look past the brace ’}’. 


( Check if finished 55) = 
ind2 < indez(tstr,":"); ind? — indez(tstr,"}"); 
if (and2 = 0) V (ind2 > ind3) then 
finished <— true; 
end if; 
if ind} = 0 then 
raise parsecapabilityerror ; 
end if; 


This code is used in section 54. 


:’. It it is not there, then we are finished. 
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CAPABILITY BODY 


56. 


( Variables local to get_capability 53) += 
ind2 ,ind3 : natural; 


57. 
(Get capability 57) = 


APPENDIX H 856 


ind1 < indez_non_blank(tstr); tstr2 — U(slice(tstr,ind1 ,ind2 — 1)); 


if debug2 then 

put("tstr2,,=,"); put(S(tstr2 )); new_line; 
end if; 
tstr — tail(tstr, length(tstr) — ind2 ); 
if debug2 then 

put("tstry="); put(S(tsir)); new_line; 
end if; 


This code is used in section 54. 


28. 


( Variables local to get_capability 53) += 
tstr2 : ustring; 


59. 


(Get EzpertiseLevel 59) 
ind1 «<— indez(tstr,", 
if indi = 0 then 

indi] « ind2; finished < true; 
end if; 
tstr3 <— U(slice(tstr,1,ind1 —1)); 
if debug2 then 
put("tstr3,,=,,"); put(S(tstr3)); new_line; 
end if; 


"); ind2 <— indez(tstr,"}"); 


enum_io.get(S(tstr? ), exp, Last); tstr <— tail(tstr, length(tstr) — ind1 ); 


if debug2 then 
put("tstry=,"); put(S(tstr)); new_line; 
end if; 


This code is used in section 54. 


60. 


( Variables local to get_capability 53) += 
tstr? : ustring; 
ezp : EzpertiseLevel; 


package enum_io is new enumeration_io(EzpertiseLevel ); 
Last : positive ; 
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61. 
( Add new capability to map 61) = 
add_capability ( yrcap , S(tstr2 ), exp); 


This code is used in section 54. 


62. 

(Procedures and Tasks in capability 28) += 
function get_num_developers return natural is 
begin 

return total developers ; 
end get_num_developers ; 


63. 


(Procedures and Tasks in capability 28) += 
procedure get_developers(infile : string) is 
( Variables local to get_developer 65) 
begin 
(Open file 64){ Read in developers 66 ) 
end get_developers ; 


64. 
(Open file 64) = 
open( data_file, in_file, infile ); 


This code is used in section 63. 


65. 

(Variables local to get_developer 65) = 
data_file : file_type; 

See also section 68. 


This code is used in section 63. 


66. 
(Read in developers 66) = 
while -end_of_file(data_file) loop 
(Get developer’s name and capabilities 67 ) 
end loop; 


This code is used in section 63. 
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67. 


(Get developer’s name and capabilities 67) = 
get_line(data_file, new_str, Last); tstr — U(new_str); ind2 <— indez(tstr,"{"); 
ind1 <— indez_non_blank(tstr); name <— U(slice(tstr,ind1 ,ind2 — 1)); 
tstr <— tail(tstr,length(tstr) — ind2 + 1); 
declare 
yrcap : cap_map.map; 
begin 
get_capability (S(tstr ), yrcap ); create_developer(S(name ), dummy); 
add_capability (devel num(dummy ), yrcap ); 
end; 


This code is used in section 66. 


68. 


( Variables local to get.developer 65) += 
Last : natural; 

new_str : String(1 .. 132); 

andi ,ind2 : natural; 

name ,tstr : ustring; 

dummy : natural; 


69. 


( Procedures and Tasks in capability 28) += 
procedure put_developers (outfile : string) is 
data_file : file_type; 
begin 
create ( data_file , out_file, outfile ); 
end put_developers ; 
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70. Test capabilities driver. Here, finally, is the boilerplate. The Ada WEB tool 
atangle reads this and knows to write out two separate files, the specification and the 
body. (The Ada WEB tool aweave will write out just one documentation file.) 


output to file testcap.adb 


pragma suppress (all checks ); 
with ustrings; 
use ustrings ; 
with tezt_io; 
use tezt_1o0; 
with capability ; 
use capability ; 
procedure testcap is (Instantiate generic packages 71 )( Variables local to testcap 73) 
begin 
( Test if items are in set 72) 
(Create a task map and see if any developers qualify 76 ) 
(Print out items in set 74) 
(Check qualifications 75 ) 
(Try reading in some capabilities 78 ) 
end testcap; 


71. 


(Instantiate generic packages 71) = 
package nat_io is new integer_io (natural ); 
use natio; 


This code is used in section 70. 


72. 


( Test if items are in set 72) = 
create_developer("Bill,Gates", myid); add_capability (myid, "Breathing", High); 
create_developer ("Scott McNealy", myid2); add_capability (myid2 ,"Java", high ); 
create_developer("Bill,Joy", myid3 ); add_capability (myid3 ,"Unix", high); 
add_capability (myid3 ,"Systems,programming", high ); 


This code is used in section 70. 


73. 


( Variables local to testcap 73) = 
myid, myid2 , myid3 : natural; 
See also sections 77 and 79. 


This code is used in section 70. 
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TEST CAPABILITIES DRIVER APPENDIX H §74 
74. 


(Print out items in set 74) = 
new_line; print_capabilities (myid); new_line; print_capabilities (myid2 ); new_line; 
print_capabilities(myid3 ); new_line; print_capabilities (task1 ); new_lne; 


This code is used in section 70. 


75. 
(Check qualifications 75) = 
if is_qualified(task1 ,myid) then 
put_line("Bill,Gates,is,qualified."); 
end if; 
if is_qualified (task1 , myid2 ) then 
put_line("Scott, McNeally,is,qualified."); 
end if; 
if 1s_qualified (task1 , myid? ) then 
put_line("BillyJoy,is,qualified."); 
end if; 


This code is used in section 70. 


76. 


(Create a task map and see if any developers qualify 76) = 
add_capability (task1 ,"Unix", medium ); 


This code is used in section 70. 


77. 


( Variables local to testcap 73) += 
task1 : cap_map.map; 


78. 

(Try reading in some capabilities 78) = 
create_developer("JohnyEvans", myid{ ); get_capability (testcapstr , task2 ); 
print_capabilities (task2 ); new_line; 
put_line("Here,yis, Bill Joy “s,capabilities,yagain>" ); print_capabilities (myid3 ); 
put_line("Here,are,jall,the,developer “s,capabilities,again."); 
print_developers; get_developers("developers.txt"); print_developers ; 


This code is used in section 70. 


79. 


( Variables local to testcap 73) += 
testcapstr : String <— 
"{Unix: high, Ada:high, Xwindows:medium, Systems,,Programming:medium}"; 
task2 : cap_map.map; 
myid4 : natural; 
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80. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make TESTCAP work at a particular instal- 
lation. It is usually best to design your change file so that all changes to previous mod- 
ules preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


81. RCS Keywords. 


$RCSfile: capability.aweb,v 
$Revision: 1.1 
$Date: 1997/09/05 00:31:42 
$Author: evansjr 
$Id: capability.aweb,v 1.1 1997/09/05 00:31:42 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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82. Index. Here is a cross-reference table for the TESTCAP program. All modules in 
which an identifier is used are listed with that identifier, except that reserved words are 
indexed only when they appear in format definitions, and the appearances of identifiers 
in module names are not indexed. Underlined entries of subprograms and packages corre- 
spond to sections where this entity is specified, whereas entries in italic type correspond 
to the section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 
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acap: 33, 35-38. developer: 14, 28, 31-32. 
Ada: 11. developer_array: 27. 
ddd 335.35, 42. developers: 27, 29-32, 35, 39-41, 44, 
add_capability: 15, 33, 34, 35, 41, 61, 47, 49. 
Bi (2.210: dummy: 67-68. 
all. checks: 70. empty: 42. 


answer: 44. 
Astring: 


end_of file: 66. 


12, 21, 25-27, 33, 35. enum_tio: 35, 39, 59, 60. 
AString: 12. enumeration_io: 35, 45-47, 60. 
badid: 13, 35. exp: 15, 33, 35, 39-40, 45-47, 59-61. 
bind: 30-33, 39-40. ezp.to: 45, 46, 47. 
boolean: 18, 23, 27, 33, 35, 44, 53. EzpertiseLevel: 12,15, 33-35, 41, 44, 60. 
cap_array: 26. Ezpertiselevel: 45-47. 
cap_map: 12, 15-19, 27-28, 30-34, 39-41, exp1: 34, 41, 44. 
44-47, 50, 52, 67, 77, 79. exp2: 44. 
cap.num: 26, 33, 35, 45-47. false: 23, 27, 38, 44, 52. 


cap_rec: 27. fd: 17, 19, 46, 50. 


capeser-a 21, 24. 26, 31, 33, 35, 42. fetch: 34, 41, 44-47. 
capabilities: 26, 30-35, 38-47. filetype: 17, 19, 46, 50, 65, 69. 
capability: 11, 21, 70. finished: 52-55, 59. 
capability.adb: 11. generic_map_pkg: 11-12. 
capability.ads: 11. generic_set_pkg: 11, 21. 


Character: 43. get: 59. 
character: 51. 

Characters: 11. 

chr: 43, 50-51. 

cmap: 27, 30-32, 39-41, 44, 47. 
copy_capability: 16, 41. 
create: 69. 


get_capability : 
get_developer_name: 

48, 49. 
get_developers: 20, 63, 78. 
get_ummediate: 50. 
getline: 67. 


19, 50, 52, 67, 78. 
17, 36, 39, 41, 


create_developer: 14, 28, 67, 72, 78. get_num_developers: 20, 62. 
data_file: 64-67, 69. globalcaps: 24, 31, 33, 35, 42. 
debug: 23, 31, 39, 50. gstring: 23, 42-43. 
debug2: 23, 32, 52, 57, 59. handling: 11. 
deveLnum: 12,15, 21, 27-28, 32, 34-35, High: 72. 

40-41, 44, 47, 49, 67. high: 12, 31, 72. 
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i: 30, 32, 34, 38, 40, 41, 42, 44, 45, 
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46, ait 48. 
wd: 15, 17-18, 32, 34-35, 44, 47, 49. 
in_file: 64. 
indez: 52, 55, 59, 67. 
indez_non_blank: 57, 67. 
wnd1: 52-53, 57, 59, 67-68. 
ind2: 52, 55-57, 59, 67-68. 
ind3: 55-56. 
infile: 20, 63-64. 
winteger_to: 71. 
inuse: 27, 29, 32, 35, 40. 
is.member: 33, 35, 38. 
is_qualified: 18, 44, 75. 
j: 36, 37, 43. 
k: 50. 
key: 12. 
knt: 28-31, 33, 35, 38-39. 
knt1: 45-47. 
knt2: 45-47. 
Last: 59-60, 67-68. 
length: 36-37, 43, 52, 57, 59, 67. 
low: 12, 30, 32, 40, 44. 
map: 15-19, 27-28, 33-34, 41, 44-46, 

50, 52, 67, 77, 79. 
maz_developers: 21. 
MAXCAPS: 26. 
medium: 12, 76. 
member: 34, 41, 44-47. 


mycaps: 26. 
myid: 72-75. 
myid2: 72-75. 
myid3: 72-75, 78. 
mytd4: 78-79. 


name: 27, 31-32, 36, 48-49, 67-68. 

namel: 41. 

name2: 41. 

nat_io: T1. 

natural: 14-18, 20-21, 24, 26, 28-29, 
34-36, 39, 41, 44, 47, 49, 53, 56, 
62, 68, 71, 73, 79. 

new_line: 39, 48, 50, 57, 59, 74, 78. 

new_str: 67-68. 


INDEX 


newstr: oO0-o1. 

newstr2: 50. 

open: 64. 

out_file: 69. 

outfile: 69. 

parsecapabilityerror: 13, 55. 

positive: 51, 60. 

print_capabilities: 17, 45, 46, 47, 48, 
74, 78. 

print_developers: 17, 31, 48, 78. 

put: 32, 39, 45-48, 50, 52, 57, 59. 

put_developers: 69. 

put_line: 32, 52, 75, 78. 

result: 12. 

set: 21, 24, 26. 

slice: 52, 57, 59, 67. 

str: 19, 25, 52. 

String: 12, 14-15, 19, 28, 33, 35, 43, 
50-52, 68, 79. 

string: 20, 25, 36-37, 63, 69. 

strings: 11. 

Strings: 11. 

suppress: 0. 

system dependencies: 80. 

tail: 52, 57, 59, 67. 

task1: 74-77. 

task2: 78-79. 

test_to_pkg: 11. 

testcap: 70. 

testcap.adb: /70. 

testcapstr: 78-79. 


TEXT_IO: 11. 
tezt_io: ‘70. 
tmpcap: 28. 


to.upper: 36-37, 43. 

totaLcaps: 26, 30-35, 38, 40-42, 44-47. 
total. developers: 24, 29, 48, 62. 

true: 29, 38, 44, 55, 59. 

tstr: 36-37, 43, 50-53, 55, 57, 59, 67-68. 
tstr2: 57-58, 61. 
tstr3: 59-60. 
Unbounded: 11. 


unchecked_deallocation: 11. 


INDEX 


Use: 11. 

ustring: 17, 36, 41, 48-49, 51, 53, 58, 
60, 68. 

Ustring: 23. 

Ustrings: 11. 

ustrings: 11, 70. 

yr: Al. 

yrcap: 15-16, 19, 33-37, 41, 50, 52, 
61, 67. 

yrid: 14-16, 28-29, 34-36, 39-41, 44, 
47, 49. 

yrtask: 15, 17-18, 33, 44-46. 
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§82 APPENDIX H NAMES OF THE SECTIONS 


( Add new capability to map 61) Used in section 54. 

{ Add this capability to all the other developers 32) Used in section 31. 

( Add to all developers 40 ) Used in section 35. 

( Assign capabilities to him 30) Used in section 28. 

( Check if finished 55 ) Used in section 54. 

(Check qualifications 75) Used in section 70. 

(Convert to upper-case 36 ) 

(Convert to uppercase 43) Used in section 42. 

( Create a task map and see if any developers qualify 76) Used in section 70. 

(Create capability out of his name 31) Used in section 28. 

(Fetch an unused developer 29) Used in section 28. 

(First convert to upper-case 37) Used in sections 33 and 35. 

( Get capability 57 ) Used in section 54. 

(Get developer’s name and capabilities 67) Used in section 66. 

(Get EzpertiseLevel 59) Used in section 54. 

(Get capability name pairs 54) Used in section 52. 

(Initialize capabilities 42) Used in section 11. 

(Instantiate generic packages 71) Used in section 70. 

( Open file 64) Used in section 63. 

( Package boiler-plate 11 ) Used in section 10. 

(Print out items in set 74) Used in section 70. 

(Procedures and Tasks in capability 28, 33, 34, 35, 41, 44, 45, 46, 47, 48, 49, 50, 52, 62, 63, 69 ) 
Used im section 11. 

Read in developers 66) Used in section 63. 

See if already in capabilities array 38 ) Used in sections 33 and 35. 

Specification of private types in capability 21) Used in section 11. 

Specification of procedures visible from capability 14, 15, 16, 17, 18, 19, 20) 
Used in section 11. 

(Specification of types and variables visible from capability 12,13) Used in section 11. 

( Test if items are in set 72) Used in section 70. 

(Try reading in some capabilities 78) Used in section 70. 

(Update capabilities of this developer 39) Used in section 35. 

( Variables and types local to capability 23, 24, 25, 26,27) Used in section 11. 

( 

( 

( 

( 
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Variables local to testcap 73,77, 79) Used in section 70. 
Variables local to fget_capability 51) Used in section 50. 
Variables local to get_capability 53, 56, 58,60) Used in section 52. 
Variables local to get_developer 65,68) Used in section 63. 
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1. 


APPENDIX I INTRODUCTION 


Introduction. This routine generates a number of tasks for which a valid schedule 


exists. The output of this routine is fed into the scheduling algorithm to test its perfor- 
mance. This particular version uses the capability model described in my thesis. 


2. 


This is the main routine that starts everything. 
output to file task_generator.adb 


pragma Unsuppress (all_checks ); 
with CALENDAR: 
use CALENDAR; 
with tezt_io; 
use tezt_20; 
( Needed packages 10) 
procedure task_generator is 
package nat_io is new integer_to(natural ); 
use nat_io; 
package fit_io is new float_io(float ); 
use flt_io; 
package boolio is new enumeration_io (boolean ); 
use booLio; 
( Variables local to task_generator 6) 
(Functions local to task_generator 33) 
begin 
(Get input parameters 4) 
declare 
( Allocate a static array to hold tasks for schedule 12 ) 
begin 
(Compute earliest available time (EAT) in resource matrix 15 ) 
R <— larity; 
fori €1.. tasks loop 
(Generate another task 16) 
end loop; 
if do_alternate then 
(Convert to calendar time 35) 
end if; 
(Print out results 34) 
end; 
end task_generator ; 


apa 


INTRODUCTION APPENDIXI = §3 


3. This routine takes two input parameters. (1) “-tasks” the number of tasks to 


generate; and (2) “-laxity” the laxity, or tightness, parameter. This is formally defined 
as 


Tp a ieee = Tp 


where Tp is the deadline, 7.,; is the earliest start-time, and Tp is the processing time. It 
is computed apriort by the task_generator. 


Tp = (1+ R)* SC 
where R is an input parameter, and SC is the shortest completion time. 


4. The input values are read in using the routines in package getopt. I read in the number 
of tasks to compute, the “laxity” of the schedule, and a “seed” for the random number 
generator. 
(Get input parameters 4) = 
tasks — 10; 
if option_present(U("-tasks")) then 
get_option(U("-tasks"), param ); get(S(param ), tasks , Last ); 
end if; 
lazity < 0.0; 
if option_present(U("-laxity")) then 
get_option(U("-laxity"), param); get(S(param), lazity , Last ); 
end if; 
seed < 68069; 
if option_present(U("-seed")) then 
get_option(U("~seed"), param ); get(S(param ), seed , Last ); 
end if; 
(Get NRaD option 5) 
(Get developer file 7 ) 
(Get developers 8 ) 


This code is used in section 2. 


o. 
(Get NRaD option 5) = 
if option_present(U("-nrad")) then 
get_option(U("-nrad"), param); get(S(param ), nrad , Last ); 
else 
nrad «<— true; 
end if; 
See also section 45. 


This code is used in section 4. 
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86 APPENDIX I INTRODUCTION 
6. 


(Variables local to task_generator 6) = 
tasks : natural; 
lazity : float; 
Last : positive ; 
param : Ustring; 
seed : natural; 
nrad : boolean; 
See also sections 9, 13, 18, 19, 22, 26, 29, 30, 32, 37, 41, 44, and 46. 


This code is used in section 2. 


7 


(Get developer file 7) = 
if name_present(1) then 
get_name ( devfile , 1); 
else 
raise nofilename ; 
end if; 


This code is used in section 4. 


8. 


(Get developers 8) = 
get_developers(S(devfile)); num_developers — get_num_developers ; 


This code is used in section 4. 


9. 


( Variables local to task_.generator 6) += 
nofilename : exception; 
devfile : ustring; 
num_developers : natural; 


10. We need some more packages to read in the parameters. Specifically the package 
getopt written by this student; and the package Ustrings—used for manipulating “un- 
bounded” strings. 
( Needed packages 10) = 

with Ustrings; 

use Ustrings ; 

with GetOpt; 

use GetOpt; 
See also sections 11, 14, 24, and 39. 


This code is used in section 2. 
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11. We also add the following package to enhance the capability model the scheduler 
(and task_generator ) can use. 
( Needed packages 10) += 

with capability ; 

use capability ; 


12. 


( Allocate a static array to hold tasks for schedule 12) = 
sched : array (1 .. tasks) of StepRecord ; 
newsched : array (1 .. tasks) of NewStepRecord; 
mysample : bool array(1 .. tasks ); 

See also section 31. 


This code is used in section 2. 


13. 


( Variables local to task_generator 6) += 
type NewStepRecord is 
record 
CalDuration : Duration; 
CalStartTime : Time; 
CalDeadLine : Time; 
end record; 


14. 


( Needed packages 10) += 
with generic_set_pkg; 
with SchedPrims ; 
use SchedPrims ; 


15. 


(Compute earliest available time (EAT) in resource matrix 15) = 


MATRIX_MIN (EAT, Min, COL); 


This code is used in sections 2 and 28. 
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16. 


(Generate another task 16) = 
(Compute duration of task T_p 17) 
(Compute predecessors 25 ) 
(Compute earliest start time 20) 
(Compute deadline T_D 21) 
(Compute priority P 23) 
sched(t).StepID — i; sched(t).Deadline — T_D; sched(z).Priority — P; 
sched (i).EstimatedDuration — T_p; ( Assign expertise level 27) 
(Update resource matrix 28 ) 


This code is used in section 2. 


17. The duration varies in length between MIN_D and MAX_D. The duration will not 
go over the maximum task deadline (MTD). 


(Compute duration of task T_p 17) = 
T_p <— uniform(MIN_D,MAX_D); {duration } 


This code is used in section 16. 


18. Minimum task duration. 


(Variables local to task.generator 6) += 
Min_D : natural — 2; 


19. Maximum task duration. 


( Variables local to task_generator 6) += 
Maz_D : natural — 10; 


20. 


(Compute earliest start time 20) = 
for 7 €1..(%—1) loop 
if nat_set.member(7, sched(z).predecessors ) then 
if Sched(j).deadline > sched(z).EarliestStartTime then 
sched (z).EarliestStartTime — Sched(7).Deadline ; 
if debug then 
put("Modified,Sched.("); put(i,1); put(")utoybe,"); 
put(sched (z).EarliestStart Time,1); put_line(".."); 
end if; 
end if; 
end if; 
end loop; 


This code is used in section 16. 
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21. The deadline (7_D) is a function of the duration and the least value of a resource 
in the resource matrix. 
(Compute deadline T_D 21) = 
TT <— integer(float(T_p) * (1.0 + lazity )); 
if debug then 
put("Old,deadline,is,"); put(sched(z).Deadline,1); put(".4"); 
end if; 
if sched (i).EarliestStartTime > EAT(COL) then 
T_D — TT + sched(z).EarliestStart Time; 
else 
TD—TT+EAT(C ..); 
end if; 
if debug then 
put("New,deadline,is,,"); put(7T_D,1); put_line("..,"); 
end if; 


This code is used in section 16. 


22. 


( Variables local to task_generator 6) += 
debug : boolean < false; 
debug2 : boolean < false; 


23. <A random value. 


(Compute priority P 23) = 
P — uniform (4, 10); 


This code is used in section 16. 


24. 


(Needed packages 10) += 
with Probability ; 
use Probability ; 
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25. I choose to select M out of N tasks as predecessors. M has an upper limit of 
Maz_Predecessors and N is the number of previous tasks assigned. If the number of 
previous tasks scheduler is less than Maz_Predecessors then the minimum is selected then 
the upper limit is the number of previous tasks scheduled. M is selected randomly. 


(Compute predecessors 25) = 
if do_predecessor then 
if 1 < Maz_Predecessors then 
ptasks «<— (i — 1); 
else 
ptasks < Maz_Predecessors ; 
end if; 
nsamp < uniform(0, ptasks ); 
if 7 >1 then 
sample(nsamp,i — 1, mysample ); 
for 7 €1..(z2—1) loop 
if mysample(j) then 
t1 — nat_set.size( Sched (1). Predecessors ); 
t2 — nat_set.size(Sched(7).Successors ); 
if (t1 < Maz_Predecessors) \(t2 < Maz_Predecessors ) then 
nat_set .add(j, Sched(2).Predecessors ); nat_set.add(2, Sched (7).Successors ); 
end if; 
end if; 
end loop; 
end if; 
end if; 


This code is used in section 16. 


26. 


( Variables local to task.generator 6) += 
Maz_Predecessors : constant natural — 0; 
ptasks ,nsamp : natural; 
t1,t2 : natural; 


ae 
( Assign expertise level 27) = 
declare 
tmpcap : cap_map.map; 
begin 
copy_capability (COL, sched (z).EzpLevel ); 
end; 


This code is used in section 16. 
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28. 


(Update resource matrix 28) = 

if debug then 
put("Before,Update:.,"); put("EAT("); put(COL,1); put(")u=u"); 
put(EAT(COL),1); put_kne(".u"); 

end if; 

EAT(COL) — T_D; 

if debug then 
put("After,Update:,,"); put("EAT("); put(COL,1); put(")u=u"); 
put(EAT(COL),1); put_line(".4"); 

end if; 

(Compute earliest available time (EAT) in resource matrix 15 ) 


This code is used in section 16. 


29. 


( Variables local to task_generator 6) += 
R: float — 0.7; 
R3 : natural — 3; {laxity } 
UU : natural — 1; 
U1 : natural — 3; {seed } 
U2 : natural — 1; 
type RESOURCE_MATRIX is array (POSITIVE range <>) of natural; 
do_predecessor : BOOLEAN < true; 


30. Max task deadline. 


( Variables local to task_generator 5) += 
MTD : natural — 70000; 


31. The way this is defined, it “hard-codes” the maximum number of designers per leve 
to ‘2.’ (Must be in concordance with the maximum number of designers defined above.) 


( Allocate a static array to hold tasks for schedule 12) += 
EAT : RESOURCE_MATRIX (1 .. num_developers) — (others => 0); 


32. 


( Variables local to task_generator 6) += 
P,T_D,T_p,R1,R2,C : natural; 
Min : natural — 0; 
COL : natural — 1; 
COUNT : natural — 0; 
TT : integer; 


234 


§33 APPENDIX I INTRODUCTION 


33. This finds the smallest value in the resource matrix and returns the index of the 
minimum value. 
(Functions local to task.generator 33) = 
procedure MATRIX_MIN (MATRIX : in RESOURCE_MATRIX; MIN : out 
natural; K1 : out natural) is 
Min1 : natural — MATRIX (1); 
begin 
Ki <1; 
for 7€2.. MATRIX 'Length \ ~p 
if Min! > MATRIX (3) the 
Min1 — MATRIX(j); Ki — 9; 
end if; 
end loop; 
MIN — Min1; 
end MATRIX_MIN; 


This code is used in section 2. 


34. Procedure Put_set is declared in package schedprims. 


(Print out results 34) = 
fori €1.. tasks loop 
if -do_alternate then 
put(sched(z).Deadline,4); put(sched(z).Priority , 4); 
put(sched (1).EstimatedDuration, 5); put(sched(z).EarliestStartTime, 5); 
{ earliest start time } 
put(""); put_set(Sched(i).Predecessors ); put("\,"); put_set(Sched(z).Successors ); 
put("\,"); print_capabilities (Sched (i).EzpLevel); new_line; 
else 
print_date(newsched(z).CalDeadline ); put(sched(i).Priority , 5); 
put(sched(1).EstimatedDuration, 5); put("4"); 
print_date(newsched(z).CalStartTime); put("\"); put_set( Sched (z).Predecessors ); 
put(""); put_set(Sched(z).Successors ); put("\"); 
print_capabilities (Sched(z).EzpLevel); new_line; 
end if; 
end loop; 


This code is used in section 2. 
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35. 
(Convert to calendar time 35) = 
(Get start date 36 ) 
Start_Time <— Current. Time; 
fori ¢€1.. tasks loop 
(Convert Start Time to Calendar Time 43) 
(Convert Task Duration to Duration type 42) 
(Convert Deadline to Calendar Time 47) 
end loop; 


This code is used in section 2. 


36. For now “hard-code” a date (July 1st, 1997). 


(Get start date 36) = 
Current_Time — Time_of (1997,7,3); (Find first work-day 38) ifdebug2 then ( Print 
out first work day 40) end if; 


This code is used in section 35. 


37. 


(Variables local to task.generator 6) += 
Current_Time, Start_Time : Time; 
do_alternate : boolean <— false; 


38. 


(Find first work-day 38) = 
while (~Js WorkDay(Current_Time, nrad )) loop 
Current_Time — Current_time + Day_Duration' Last; 
end loop; 


This code 1s used in section 36. 


39. Package to find federal off-days till year 2099 (barring acts of God, or Congress). 


(Needed packages 10) += 
with calyr; 
use calyr; 


40. 


(Print out first work day 40) = 
Split( Current. Time, Year, Month, Day, Seconds); put("The first work day jis."); 
put(Month,3); put("/"); put(Day,3); put("/"); put(Year,4); putline("."); 


This code is used in section 36. 
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41. 


( Variables local to task_generator 6) += 
Year : Year_number; 
Month : Month_number ; 
Day : Day.Number; 
Seconds : Day_Duration; 


42. 


(Convert Task Duration to Duration type 42) = 
newsched (i).CalDuration — ConvertHoursto Duration (sched (1). Estimated Duration ); 


This code is used in section 35. 


43. 


(Convert Start Time to Calendar Time 43) = 
TotalTime — ConvertHoursToDuration( Sched (1). EarliestStart Time ); 
newsched(z).CalStart Time — DurationTo Calendar Time (Start_Time, dailyhours , 
TotalTime , NRad ); 
if debug2 then 
testduration «< CalendarTimetoDuration( Start_Time, dailyhours , 
newsched (1). CalStart Tume , NRaD ); 
testhours — ConvertDurationTo Hours (testduration ); 
if sched(1).EarliestStart Time # testhours then 
put("ERROR,,in,,CalendarTimetoWorkHours"); new_line; 
put("CalendarTime,returned,,"); put(testhours ); 
put("andjit,should,have,returned,,"); put(sched(z).EarliestStart Time ); 
put("."); put("(NRaD) ="); put(NRaD); put(")."); new_line; 
put("The, Start Time,,is,"); print_date(Start_ Time); 
put(". The, ,TotalTime,,is,,"); put (float ( TotalTime)); 
put("In,hours,thatjis,,"); put(ConvertDurationtoHours( TotalTime )); 
put(")"); put("-uu"); new_line; 
end if; 
end if; 


This code is used in section 35. 


44. 


( Variables local to task_generator 6) += 
testduration : Duration; 
testhours : natural; 
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45. 


(Get NRaD option 5) += 
for day € Mon .. Thu loop 
if nrad then 
datlyhours (Day) <— 9.0 * SecondsPerHour ; 
else 
dailyhours (Day) — 8.0 * SecondsPerHour ; 
end if; 
end loop; 
dailyhours (Fri) — 8.0 * SecondsPerHour ; 


46. 


(Variables local to task_generator 6) += 
datlyhours : Workhours; 
SecondsPerHour : constant Duration — 3600.0; 
TotalTime : duration; 


47. 


(Convert Deadline to Calendar Time 47) = 
TotalTime — ConvertHours ToDuration( Sched (1).Deadline ); 
newsched(z).CalDeadline — DurationToCalendarTime ( Start_Time, dailyhours , 
TotalTime , NRad); 


This code is used in section 35. 
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48. System-dependent changes. This module should be replaced, if necessary, by 
changes to the program that are necessary to make MAIN work at a particular installation. 
It is usually best to design your change file so that all changes to previous modules 
preserve the module numbering; then everybody’s version will be consistent with the 
printed program. More extensive changes, which introduce new modules, can be inserted 
here; then only the index itself will get a new module number. 


49. RCS Keywords. 


$RCSfile: task_generator.aweb,v 
$Revision: 1.3 
$Date: 1997/09/05 00:35:25 
$Author: evansjr 
$Id: task_generator.aweb,v 1.3 1997/09/05 00:35:25 evansjr Exp evansjr 
$Locker: evansjr 
$State: Exp 
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50. Index. Here is a cross-reference table for the MAIN program. All modules in which 
an identifier is used are listed with that identifier, except that reserved words are indexed 
only when they appear in format definitions, and the appearances of identifiers in module 
names are not indexed. Underlined entries of subprograms and packages correspond to 
sections where this entity is specified, whereas entries in italic type correspond to the 
section where the entity’s body is stated. For any other identifier underlined entries 
correspond to where the identifier was declared. Error messages and a few other things 


like “ASCII code” are indexed here too. 


add: 25. do_predecessor: 25, 29. 
all. checks: 2. duration: 46. 
booLarray: 12. Duration: 13, 44, 46. 
booLio: 2. DurationToCalendarTime: 43, 47. 
boolean: 2, 6, 22, 37. EarliestStartTime: 20-21, 34, 43. 
BOOLEAN: 29. BAT: 15,21, 28, 31: 
CalDeadline: 34, 47. enumeration_io: 2. 
CalDeadLine: 13. EsttmatedDuration: 16, 34, 42. 
CalDuration: 13, 42. EzpLevel: 27, 34. 
CALENDAR: 2. false: 22, 37. 
CalendarTimetoDuration: 43. float: 2, 6, 21, 29, 43. 
CalStartTime: 13, 34, 43. float_io: 2. 

calyr: 39. fitio: 2. 

cap_map: 27. Fri: 45. 

capability: 11. generic_set_pkg: 14. 
COL: 15, 21, 27-28, 32. get: 4-5. 
ConvertDurationtoHours: 43. get_developers: 8. 
ConvertDurationToHours: 43. get_name: 7. 
ConvertHoursToDuration: 43, 47. get_num_developers: 8. 
ConvertHourstoDuration: 42. get_option: 4-5. 
copy_capability: 27. getopt: 4, 10. 

COUNT: 32. GetOpt: 10. 
Current_Time: 35-38, 40. Pee Od 0: 
Current_time: 38. integer: 21, 32. 
dailyhours: 43, 45-47. integer_to: 2. 

day: 465. IsWorkDay: 38. 

Day: 40-41, 45. Jou 20420. 33. 
Day_Duration: 38, 41. hese: 
Day_Number: 41. Last: 4-6, 38. 
Deadline: 16, 20-21, 34, 47. lazity: 2, 4, 6, 21. 
deadline: 20. Length: 33. 

debug: 20-22, 28. map: 27. 

debug2: 22, 36, 43. MATRIX: 33. 

devfile: 7-9. MATRIX_MIN: 15, 33. 
do_alternate: 2, 34, 37. MAX_D: 17. 
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Maz_D: 19. 
Maz_Predecessors: 
member: 20. 
MIN: _ 33. 
Min: 15, 32. 
MIN_D: 17. 
Min_D: 18. 
Mini: 33. 
Mon: 46. 
Month: 40-41. 
Month.number: 41. 
MTD: 17, 30. 
mysample: 12, 25. 
name_present: 7. 
nat_to: 2. 
20, 25. 
natural: 2, 6, 9, 18-19, 26, 29-30, 
32-33, 44. 
new_line: 34, 43. 
newsched: 12, 34, 42-43, 47. 
NewStepRecord: 12, 13. 
nofilename: 7, 9. 
nrad: 5-6, 38, 45. 
NRad: 43, 47. 
NRaD: 43. 
25-26. 
num_developers: 
option_present: 
4—6. 
positive: 6. 
POSITIVE: 29. 
Predecessors: 


29-26. 


nat_set: 


nsamp: 
8-9, 31. 
4—5. 


param: 


25, 34. 
predecessors: 20. 
print_capabilities: 34. 
print.date: 34, 43. 
Priority: 16, 34. 
Probability: 24. 

ptasks: 25-26. 

put: 20-21, 28, 34, 40, 43. 


putine: 20-21, 28, 40. 
put_set: 34. 
Put_set: 34. 


RESOURCE_MATRIX: 29, 31, 33. 
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1 es 

fice eos. 

Hig) O29) 

sample: 25. 

Sched: 20, 25, 34, 43, 47. 

sched: 12, 16, 20-21, 27, 34, 42-43. 
SchedPrims: 14. 

schedprims: 34. 


Seconds: 40-41. 
SecondsPerHour: 45-46. 
seed: 4, 6. 

size. 25. 

Split: 40. 

Start_Time: 35, 37, 43, 47. 
StepID: 16. 

StepRecord: 12. 
Successors: 25, 34. 


system dependencies: 48. 
Loe VG le 28.732. 
epee OL. 21) 32: 
task_generator: 2, 3, 11. 
task_generator.adb: 2. 
tasks: 2, 4, 6, 12, 34-35. 
testduration: 43-44. 
testhours: 43-44. 
tezt.to: 2. 

Thu: 45. 

Time: 13, 37. 
Time_of: 36. 
tmpcap: 27. 
TotalTime: 
true: 5, 29. 
ee 2A 2. 
ti: 25-26. 
i 2020: 
I 2Zane20. 
Unsuppress: 2. 


43, 46-47. 


uniform: 


ustring: 9. 
Ustring: 6. 
Ustrings: 10. 
UU: 29. 
U1: 29. 
U2e 2a. 
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Workhours: 46. 
Year: 40-41. 
Year_number: 41. 
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§50 APPENDIX I NAMES OF THE SECTIONS 


( Allocate a static array to hold tasks for schedule 12,31) Used in section 2. 
( Assign expertise level 27) Used in section 16. 

(Compute deadline T_D 21) Used in section 16. 

(Compute duration of task T_p 17) Used in section 16. 

(Compute earliest available time (EAT) in resource matrix 15) Used in sections 2 and 28. 
(Compute earliest start time 20) Used in section 16. 

(Compute predecessors 25) Used in section 16. 

(Compute priority P 23) Used in section 16. 

(Convert Deadline to Calendar Time 47) Used in section 35. 

(Convert Start Time to Calendar Time 43) Used in section 35. 

(Convert Task Duration to Duration type 42) Used in section 35. 

(Convert to calendar time 35) Used in section 2. 

(Find first work-day 38) Used in section 36. 

(Functions local to task_.generator 33) Used in section 2. 

( Generate another task 16 ) Used in section 2. 

(Get NRaD option 5, 45) Used in section 4. 

(Get developer file 7) Used in section 4. 

( Get developers 8 ) Used in section 4. 

(Get input parameters 4) Used in section 2. 

( Get start date 36 ) Used in section 35. 

( Needed packages 10, 11, 14, 24, 39 ) Used in section 2. 

( Print out first work day 40 ) Used in section 36. 

( Print out results 34 ) Used in section 2. 

(Update resource matrix 28) Used in section 16. 

( Variables local to task_generator 6, 9, 13, 18, 19, 22, 26, 29, 30, 32, 37, 41, 44, 46) 


Used in section 2. 
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